diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-11-15 07:47:59 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-15 21:16:57 +0000 |
| commit | 77818208643949320ba57536d6c01e6973ff7a4a (patch) | |
| tree | 69908f605f3529b281c649b65637aaaf537b5501 /t/run/switches.t | |
| parent | b844f03e71077069122b6f1194667733997dd055 (diff) | |
| download | perl-77818208643949320ba57536d6c01e6973ff7a4a.tar.gz | |
-x (was Re: [PATCH] new tests for command-line switches)
Message-ID: <20011115124759.E31399@blackrider>
p4raw-id: //depot/perl@13027
Diffstat (limited to 't/run/switches.t')
| -rw-r--r-- | t/run/switches.t | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/t/run/switches.t b/t/run/switches.t index 2d6645de34..04b9630622 100644 --- a/t/run/switches.t +++ b/t/run/switches.t @@ -9,7 +9,7 @@ BEGIN { require "./test.pl"; -plan(tests => 15); +plan(tests => 14); my $r; my @tmpfiles = (); @@ -159,24 +159,3 @@ SWTESTPM is( $r, '<swtest><foo><bar>', '-m with import parameters' ); push @tmpfiles, $filename; } - -# Tests for -x - -$filename = 'swxtest.tmp'; -SKIP: { - open my $f, ">$filename" or skip( "Can't write temp file $filename: $!" ); - print $f <<'SWTEST'; -print 1; -#!perl -print 2; -__END__ -print 3; -SWTEST - close $f; - $r = runperl( - switches => [ '-x' ], - progfile => $filename, - ); - is( $r, '2', '-x' ); - push @tmpfiles, $filename; -} |