diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/run/switchp.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/run/switchp.t | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gnu/usr.bin/perl/t/run/switchp.t b/gnu/usr.bin/perl/t/run/switchp.t index 1d1fe1485f5..ab1ae902854 100644 --- a/gnu/usr.bin/perl/t/run/switchp.t +++ b/gnu/usr.bin/perl/t/run/switchp.t @@ -1,16 +1,19 @@ #!./perl -p +# This test file does not use test.pl because of the involved way in which it +# generates its TAP output. + BEGIN { print "1..3\n"; *ARGV = *DATA; } END { - print "ok 3\n"; + print "ok 3 - -p switch tested\n"; } s/^not //; __DATA__ -not ok 1 -not ok 2 +not ok 1 - -p switch first iteration +not ok 2 - -p switch second iteration |