diff options
| -rw-r--r-- | t/op/smartmatch.t | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t index 33836b3f4f..117fd4e544 100644 --- a/t/op/smartmatch.t +++ b/t/op/smartmatch.t @@ -73,7 +73,7 @@ my %keyandmore = map { $_ => 0 } @keyandmore; my %fooormore = map { $_ => 0 } @fooormore; # Load and run the tests -plan tests => 322; +plan tests => 335; while (<DATA>) { SKIP: { @@ -483,3 +483,18 @@ __DATA__ @nums { 1, '', 2, '' } @nums { 1, '', 12, '' } ! @nums { 11, '', 12, '' } + +# UNDEF +! 3 undef +! 1 undef +! [] undef +! {} undef +! \%::main undef +! [1,2] undef +! %hash undef +! @nums undef +! "foo" undef +! "" undef +! !1 undef +! \&foo undef +! sub { } undef |