t/run/switchx.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!./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