t/run/switchPx.t

   1 #!./perl
   2
   3 # Ensure that the -P and -x flags work together.
   4
   5 BEGIN {
   6     chdir 't' if -d 't';
   7     @INC = '../lib';
   8
   9     use Config;
  10     if ( ($Config{'cppstdin'} =~ /\bcppstdin\b/) &&
  11          ! -x $Config{'binexp'} . "/cppstdin" ) {
  12         print "1..0 # Skip: \$Config{cppstdin} unavailable\n";
  13             exit;               # Cannot test till after install, alas.
  14     }
  15 }
  16
  17 require './test.pl';
  18
  19 print runperl( switches => ['-Px'],
  20                nolib => 1,   # for some reason this is necessary under VMS
  21                progfile => 'run/switchPx.aux' );