This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Adds additional tests with undef for smartmatch.
authorYuval Kogman <nothingmuch@woobling.org>
Sun, 1 Nov 2009 00:02:00 +0000 (19:02 -0500)
committerSteve Peters <steve@fisharerojo.org>
Sun, 1 Nov 2009 00:02:00 +0000 (19:02 -0500)
Updated plan count missing in the original patch.

t/op/smartmatch.t

index 33836b3..117fd4e 100644 (file)
@@ -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