t/run/switchx2.aux

   1 From: foo@bar.xx
   2 Date: Jan 1, 2037 12:34 PM
   3 Subject: Ignore mail header
   4 To: perl@perl.xx
   5
   6 #perl
   7 Not perl
   8
   9 #!
  10 Still not perl
  11
  12 #!/something/else
  13 Still not perl
  14
  15 #!/usr/bin/bash
  16 # Ignore shell commands
  17 if [[ -z $FOO ]]; then echo 'not ok 1'; fi
  18
  19 #!/some/path/that/leads/to/perl -l
  20
  21 # These lines get executed
  22 my $test = $ARGV[0];
  23 if (-f 'switchx.t') {
  24     print("ok $test - perl -l option tested");
  25 }
  26 $test++;
  27 print "ok $test - Second test file utilized";
  28
  29 __END__
  30
  31 # This is ignored
  32 print "not ok $test";