From: Yuval Kogman <nothingmuch@woobling.org>
Date: Sat, 28 Jun 2008 22:40:34 +0000 (+0300)
Subject: add undef tests to t/op/smartmatch.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b472f62a7910ee5203ec5d411f2f1f65943f5efd;p=p5sagit%2Fp5-mst-13.2.git

add undef tests to t/op/smartmatch.t
---

diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t
index ed41aaa..79b6b9b 100644
--- a/t/op/smartmatch.t
+++ b/t/op/smartmatch.t
@@ -177,3 +177,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