diff options
Diffstat (limited to 't/run')
-rw-r--r-- | t/run/switchn.t | 9 | ||||
-rw-r--r-- | t/run/switchp.t | 12 |
2 files changed, 17 insertions, 4 deletions
diff --git a/t/run/switchn.t b/t/run/switchn.t index 12d3898a8e..bca9a66e76 100644 --- a/t/run/switchn.t +++ b/t/run/switchn.t @@ -1,11 +1,18 @@ #!./perl -n BEGIN { - print "1..2\n"; + print "1..3\n"; *ARGV = *DATA; } + +END { + print "ok 3\n"; +} + print; +s/^/not /; + __DATA__ ok 1 ok 2 diff --git a/t/run/switchp.t b/t/run/switchp.t index 19947356d9..1d1fe1485f 100644 --- a/t/run/switchp.t +++ b/t/run/switchp.t @@ -1,10 +1,16 @@ #!./perl -p BEGIN { - print "1..2\n"; + print "1..3\n"; *ARGV = *DATA; } +END { + print "ok 3\n"; +} + +s/^not //; + __DATA__ -ok 1 -ok 2 +not ok 1 +not ok 2 |