This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test '-x dir'
[perl5.git] / t / run / switchx.t
CommitLineData
77818208
MS
1#!./perl
2
3BEGIN {
4 chdir 't' if -d 't';
5 @INC = '../lib';
6}
7
8require './test.pl';
dc459aad 9use File::Spec::Functions;
77818208 10
94e93a7a
JH
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