Date objects should smart-match correct

moritz · moritz · commit 02f41d976269 · 2012-01-20T22:05:44.000+01:00
diff --git a/S32-temporal/Date.t b/S32-temporal/Date.t
@@ -3,7 +3,7 @@ use Test;
 
 # L<S32::Temporal/C<Date>>
 
-plan 57;
+plan 58;
 
 # construction
 {
@@ -115,4 +115,6 @@ sub d($x) { Date.new($x); }
     is $c <=> $a, Order::Decrease, '<=> (+1)';
 }
 
+ok d('2011-01-14') ~~ d('2011-01-14'), 'Can smartch Date objects';
+
 done;

Original file line number	Diff line number	Diff line change
`@@ -3,7 +3,7 @@ use Test;`
`3`	`3`
`4`	`4`	`# L<S32::Temporal/C<Date>>`
`5`	`5`
`6`		`-plan 57;`
	`6`	`+plan 58;`
`7`	`7`
`8`	`8`	`# construction`
`9`	`9`	`{`
`@@ -115,4 +115,6 @@ sub d($x) { Date.new($x); }`
`115`	`115`	`is $c <=> $a, Order::Decrease, '<=> (+1)';`
`116`	`116`	`}`
`117`	`117`
	`118`	`+ok d('2011-01-14') ~~ d('2011-01-14'), 'Can smartch Date objects';`
	`119`	`+`
`118`	`120`	`done;`