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     $ENV{PERL5LIB} = '../lib';
   9
  10     use Config;
  11     if ( $^O eq 'MacOS' || ($Config{'cppstdin'} =~ /\bcppstdin\b/) &&
  12          ! -x $Config{'binexp'} . "/cppstdin" ) {
  13         print "1..0 # Skip: \$Config{cppstdin} unavailable\n";
  14             exit;               # Cannot test till after install, alas.
  15     }
  16 }
  17
  18 require './test.pl';
  19
  20 print runperl( switches => ['-Px'],
  21                nolib => 1,   # for some reason this is necessary under VMS
  22                progfile => 'run/switchPx.aux' );