diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-08-09 04:28:17 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-08-09 15:00:25 +0000 |
| commit | 94e93a7aa11773f80f2c4abf1f3e9c73e11090bf (patch) | |
| tree | e0ab3aa7e76697d4b112b9412bbf4b25e42b7ae6 /t/run/switchx.t | |
| parent | a8cb5b9ec57a11eba446747575d2e00c99109ebe (diff) | |
| download | perl-94e93a7aa11773f80f2c4abf1f3e9c73e11090bf.tar.gz | |
Test '-x dir'
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510708090528w5579515bp6f862c613abccf84@mail.gmail.com>
p4raw-id: //depot/perl@31696
Diffstat (limited to 't/run/switchx.t')
| -rw-r--r-- | t/run/switchx.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/run/switchx.t b/t/run/switchx.t index 60a522cf49..1c61ba89f1 100644 --- a/t/run/switchx.t +++ b/t/run/switchx.t @@ -8,4 +8,13 @@ BEGIN { require './test.pl'; use File::Spec::Functions; -print runperl( switches => ['-x'], progfile => catfile(curdir(), 'run', 'switchx.aux') ); +# Test '-x' +print runperl( switches => ['-x'], + progfile => catfile(curdir(), 'run', 'switchx.aux') ); + +# Test '-xdir' +print runperl( switches => ['-x' . catfile(curdir(), 'run')], + progfile => catfile(curdir(), 'run', 'switchx2.aux'), + args => [ 3 ] ); + +# EOF |