X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fsmartmatch.t;h=2c6e5f1bdf376723c043c1e5fe02f02668e8a04e;hb=015eb7b967ac690ef0b530c0aa564f080ff0fa4b;hp=8047451045fb3ec326eb62e22d730d563f390d64;hpb=d0b243e39ca09d7da156b4027255b58fa0a84810;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t
index 8047451..2c6e5f1 100644
--- a/t/op/smartmatch.t
+++ b/t/op/smartmatch.t
@@ -13,6 +13,7 @@ use Tie::Hash;
 # Predeclare vars used in the tests:
 my @empty;
 my %empty;
+my @sparse; $sparse[2] = 2;
 
 my $deep1 = []; push @$deep1, \$deep1;
 my $deep2 = []; push @$deep2, \$deep2;
@@ -331,7 +332,7 @@ __DATA__
 !	/bar/		@fooormore
 
 # - a number
-	2		[qw(1foo 2bar)]
+	2		[qw(1.00 2.00)]
 	2		[qw(foo 2)]
 	2.0_0e+0	[qw(foo 2)]
 !	2		[qw(1foo bar2)]
@@ -340,6 +341,18 @@ __DATA__
 !	"2"		[qw(1foo 2bar)]
 	"2bar"		[qw(1foo 2bar)]
 
+# - undef
+	undef		[1, 2, undef, 4]
+!	undef		[1, 2, [undef], 4]
+!	undef		@fooormore
+	undef		@sparse
+
+# - nested arrays and ~~ distributivity
+	11		[[11]]
+!	11		[[12]]
+	"foo"		[{foo => "bar"}]
+!	"bar"		[{foo => "bar"}]
+
 # Number against number
 	2		2
 	20		2_0