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