From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 18 Mar 2009 18:29:34 +0000 (+0100)
Subject: Remove obsolete or redundant tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0cfbf1eabaa9be38a1db953e3ec905f70a1605cd;p=p5sagit%2Fp5-mst-13.2.git

Remove obsolete or redundant tests
---

diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t
index 5fd3587..a0b4be6 100644
--- a/t/op/smartmatch.t
+++ b/t/op/smartmatch.t
@@ -86,9 +86,9 @@ sub bar {42}
 sub gorch {42}
 sub fatal {die "fatal sub\n"}
 
+# to test constant folding
 sub FALSE() { 0 }
 sub TRUE() { 1 }
-sub TWO() { 1 }
 
 # Prefix character :
 #   - expected to match
@@ -142,6 +142,7 @@ __DATA__
 	$ov_obj		$ov_obj
 =@	$ov_obj		\&fatal
 =!	$ov_obj		\&FALSE
+=	$ov_obj		\&TRUE
 =!	$ov_obj		\&foo
 =	$ov_obj		\&bar
 =	$ov_obj		sub { shift ~~ "key" }
@@ -163,10 +164,11 @@ __DATA__
 =	$ov_obj		"key"
 =!	$ov_obj		"foo"
 =!	$ov_obj		FALSE
+=!	$ov_obj		TRUE
 
 # regular object
 =@	$obj	$ov_obj
-=@	$obj	$obj
+@	$obj	$obj
 =@	$obj	\&fatal
 =@	$obj	\&FALSE
 =@	$obj	\&foo
@@ -227,19 +229,6 @@ __DATA__
 !	[]		\&fatal
 !	+{}		\&fatal
 
-# - null-prototyped subs
-!	undef		\&FALSE
-	undef		\&TRUE
-!	0		\&FALSE
-	0		\&TRUE
-!	1		\&FALSE
-	1		\&TRUE
-!	\&FALSE		\&foo
-
-# - non-null-prototyped subs
-	bar		gorch
-@	fatal		bar
-
 # HASH ref against:
 #   - another hash ref
 	{}		{}