diff options
Diffstat (limited to 't/op/blocks.t')
| -rw-r--r-- | t/op/blocks.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/blocks.t b/t/op/blocks.t index 476d9ea9af..717be4cdf2 100644 --- a/t/op/blocks.t +++ b/t/op/blocks.t @@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 3; +plan tests => 4; my @expect = qw( b1 @@ -105,3 +105,7 @@ sub CHECK {print ":check"} sub INIT {print ":init"} sub END {print ":end"} SCRIPT3 + +fresh_perl_is(<<'SCRIPT70614', "still here",{switches => [''], stdin => '', stderr => 1 },'eval-UNITCHECK-eval (bug 70614)'); +eval "UNITCHECK { eval 0 }"; print "still here"; +SCRIPT70614 |