t/run/switchx.aux

   1 Some stuff that's not Perl
   2
   3 This CPP directive should not be read.
   4 #define BARMAR 1
   5
   6 #perl
   7
   8 Still not perl.
   9
  10 #!
  11
  12 still not perl
  13
  14 #!/something/else
  15
  16 still not perl
  17
  18 #!/some/path/that/leads/to/perl -l
  19
  20 print "1..8";
  21 print "ok 1 - Correct line number" if __LINE__ == 4;
  22 if (-f 'run/switchx.aux') {
  23     print "ok 2 - Test file exists";
  24 }
  25 print "ok 3 - Test file utilized";
  26 # other tests are in switchx2.aux
  27
  28 __END__
  29
  30 # This is ignored
  31 print "not ok 2";