Add failing tests, needed by MouseX::NativeTraits testing
Fuji, Goro [Thu, 4 Nov 2010 08:27:28 +0000 (17:27 +0900)]
t/040_type_constraints/016_subtyping_parameterized_types.t [moved from Moose-t-failing/040_type_constraints/016_subtyping_parameterized_types.t with 92% similarity]

@@ -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';