diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/op/stash.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/stash.t b/t/op/stash.t index 3d9d0841da..4a3cf06538 100644 --- a/t/op/stash.t +++ b/t/op/stash.t @@ -7,7 +7,7 @@ BEGIN { require "./test.pl"; -plan( tests => 9 ); +plan( tests => 11 ); # Used to segfault (bug #15479) fresh_perl_is( @@ -50,3 +50,9 @@ package main; '', ); } + +# now tests with strictures + +use strict; +ok( !defined %pig::, q(referencing a non-existent stash doesn't produce stricture errors) ); +ok( !exists $pig::{bodine}, q(referencing a non-existent stash element doesn't produce stricture errors) ); |