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..7";
  21 if (-f 'run/switchx.aux') {
  22     print "ok 1 - Test file exists";
  23 }
  24 print "ok 2 - Test file utilized";
  25 # other tests are in switchx2.aux
  26
  27 __END__
  28
  29 # This is ignored
  30 print "not ok 2";