#!./perl BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } require './test.pl'; # Test '-x' print runperl( switches => ['-x'], progfile => 'run/switchx.aux' ); # Test '-xdir' print runperl( switches => ['-x./run'], progfile => 'run/switchx2.aux', args => [ 3 ] ); # EOF