[perl5.git] / t / run / switchx.t

#!./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
Commit	Line	Data
77818208 MS	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	}
	7
	8	require './test.pl';
	9
94e93a7a JH	10	# Test '-x'
94e93a7a JH	11	print runperl( switches => ['-x'],
519ecd2c	12	progfile => 'run/switchx.aux' );
94e93a7a JH	13
94e93a7a JH	14	# Test '-xdir'
519ecd2c NC	15	print runperl( switches => ['-x./run'],
519ecd2c NC	16	progfile => 'run/switchx2.aux',
94e93a7a JH	17	args => [ 3 ] );
	18
	19	# EOF