This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make (l)stat respect get-magic on globs and globrefs
[perl5.git] / t / run / switchx.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6 }
7
8 require './test.pl';
9
10 # Test '-x'
11 print runperl( switches => ['-x'],
12                progfile => 'run/switchx.aux' );
13
14 # Test '-xdir'
15 print runperl( switches => ['-x./run'],
16                progfile => 'run/switchx2.aux',
17                args     => [ 3 ] );
18
19 # EOF