Commit | Line | Data |
---|---|---|
77818208 | 1 | #!./perl |
2 | ||
3 | BEGIN { | |
4 | chdir 't' if -d 't'; | |
5 | @INC = '../lib'; | |
6 | } | |
7 | ||
8 | require './test.pl'; | |
dc459aad | 9 | use File::Spec::Functions; |
77818208 | 10 | |
94e93a7a | 11 | # Test '-x' |
12 | print runperl( switches => ['-x'], | |
13 | progfile => catfile(curdir(), 'run', 'switchx.aux') ); | |
14 | ||
15 | # Test '-xdir' | |
16 | print runperl( switches => ['-x' . catfile(curdir(), 'run')], | |
17 | progfile => catfile(curdir(), 'run', 'switchx2.aux'), | |
18 | args => [ 3 ] ); | |
19 | ||
20 | # EOF |