From: Fuji, Goro <gfuji@cpan.org>
Date: Thu, 4 Nov 2010 08:27:28 +0000 (+0900)
Subject: Add failing tests, needed by MouseX::NativeTraits testing
X-Git-Tag: 0.82~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=e15a70e5756560b2d25f0f377b1a255315b6e8d3

Add failing tests, needed by MouseX::NativeTraits testing
---

diff --git a/Moose-t-failing/040_type_constraints/016_subtyping_parameterized_types.t b/t/040_type_constraints/016_subtyping_parameterized_types.t
similarity index 92%
rename from Moose-t-failing/040_type_constraints/016_subtyping_parameterized_types.t
rename to t/040_type_constraints/016_subtyping_parameterized_types.t
index 00f9665..8bd6d9b 100644
--- a/Moose-t-failing/040_type_constraints/016_subtyping_parameterized_types.t
+++ b/t/040_type_constraints/016_subtyping_parameterized_types.t
@@ -7,7 +7,6 @@ use strict;
 use warnings;
 
 use Test::More;
-$TODO = q{Mouse is not yet completed};
 use Test::Exception;
 
 BEGIN {
@@ -33,9 +32,9 @@ lives_ok {
     ok($t->check({ one => 1, two => 2 }), '... validated {one=>1, two=>2} correctly');
     ok(!$t->check({ one => "ONE", two => "TWO" }), '... validated it correctly');
 
-    ok( $t->equals($t), "equals to self" );
-    ok( !$t->equals( $t->parent ), "not equal to parent" );
-    ok( $t->parent->equals( $t->parent ), "parent equals to self" );
+    #ok( $t->equals($t), "equals to self" );
+    #ok( !$t->equals( $t->parent ), "not equal to parent" );
+    #ok( $t->parent->equals( $t->parent ), "parent equals to self" );
 
     ok( !$t->is_a_type_of("ThisTypeDoesNotExist"), "not a non existant type" );
     ok( !$t->is_subtype_of("ThisTypeDoesNotExist"), "not a subtype of a non existant type" );
@@ -63,7 +62,7 @@ lives_ok {
     is($p->name, 'HashRef[Int]', '... parent name is correct');
 
     ok($t->check({ one => 1, two => 2 }), '... validated it correctly');
-    ok(!$t->check({ zero => 10, one => 11, two => 12 }), '... validated { zero => 10, one => 11, two => 12 } correctly');
+    ok(!$t->check({ zero => 10, one => 11, two => 12 }), '... validated { zero => 10, one => 11, two => 12 } correctly') or diag $t->dump;
     ok(!$t->check({ one => "ONE", two => "TWO" }), '... validated it correctly');
 }
 
@@ -89,7 +88,8 @@ lives_ok {
     isa_ok($t, 'Mouse::Meta::TypeConstraint');
 
     ok( $t->check({ one => 1, two => 2, three => 3 }), "validated" );
-    ok( !$t->check({ one => 1, two => "foo", three => [] }), "failed" );
+    ok( !$t->check({ one => 1, two => "foo", three => [] }), "failed" )
+        or diag $t->dump;
     ok( !$t->check({ one => 1 }), "failed" );
 }
 
@@ -125,6 +125,7 @@ lives_ok {
 }
 
 {
+    last; # ScalarRef[] is not supported
     my $RefToInt = subtype as 'ScalarRef[Int]';
 
     ok $RefToInt->check(\1), '\1 is okay';