Use tempfile() in tests
[perl.git] / 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' );