From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 13 Feb 2009 23:16:20 +0000 (+0100)
Subject: More tests for coderefs and smart match
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18d11902f69001065b3cb2a89f68f91321020f07;p=p5sagit%2Fp5-mst-13.2.git

More tests for coderefs and smart match
---

diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t
index 65bd079..d4935dc 100644
--- a/t/op/smartmatch.t
+++ b/t/op/smartmatch.t
@@ -80,6 +80,9 @@ sub fatal {die "fatal sub\n"}
 
 sub a_const() {die "const\n" if @_; "a constant"}
 sub b_const() {die "const\n" if @_; "a constant"}
+sub FALSE() { 0 }
+sub TRUE() { 1 }
+sub TWO() { 1 }
 
 # Prefix character :
 #   - expected to match
@@ -91,25 +94,31 @@ __DATA__
 	$ov_obj		"key"
 	$ov_obj		{"key" => 1}
 !	$ov_obj		"foo"
+	$ov_obj		sub { shift ~~ "key" }
+!	$ov_obj		sub { shift ~~ "foo" }
 !	$ov_obj		\&foo
 @	$ov_obj		\&fatal
+!	$ov_obj		FALSE
+!	$ov_obj		\&FALSE
 !	$ov_obj		undef
 
 # regular object
 @	$obj	"key"
 @	$obj	{"key" => 1}
-@	$obj	"foo"
 @	$obj	$obj
 @	$obj	sub { 1 }
 @	$obj	sub { 0 }
 @	$obj	\&foo
 @	$obj	\&fatal
+@	$obj	FALSE
+@	$obj	\&FALSE
 !	$obj	undef
 
 # CODE ref against argument
 #  - arg is code ref
 	\&foo		\&foo
 !	\&foo		sub {}
+!	\&foo		sub { "$_[0]" =~ /^CODE/ }
 !	\&foo		\&bar
 	\&fatal		\&fatal
 !	\&foo		\&fatal
@@ -119,6 +128,7 @@ __DATA__
 !	0	sub{shift}
 !	undef	sub{shift}
 	undef	sub{not shift}
+	FALSE	sub{not shift}
 	1	sub{scalar @_}
 	[]	\&bar
 	{}	\&bar
@@ -142,6 +152,20 @@ __DATA__
 	a_const		b_const
 	\&a_const	\&a_const
 !	\&a_const	\&b_const
+!	undef		\&FALSE
+	undef		\&TRUE
+!	0		\&FALSE
+	0		\&TRUE
+!	1		\&FALSE
+	1		\&TRUE
+	\&FALSE		\&FALSE
+!	\&FALSE		\&foo
+!	\&FALSE		\&bar
+!	\&TRUE		\&foo
+!	\&TRUE		\&bar
+!	\&TWO		\&foo
+!	\&TWO		\&bar
+	\&FALSE		\&FALSE
 
 # - non-null-prototyped subs
 !	\&bar		\&gorch
@@ -210,12 +234,15 @@ __DATA__
 # Number against number
 	2		2
 !	2		3
+	0		FALSE
+	3-2		TRUE
 
 # Number against string
 	2		"2"
 	2		"2.0"
 !	2		"2bananas"
 !	2_3		"2_3"
+	FALSE		"0"
 
 # Regex against string
 	qr/x/		"x"