Cleanup failing tests

[gitmo/Mouse.git] / Moose-t-failing / 040_type_constraints / 016_subtyping_parameterized_types.t

diff --git a/t/040_type_constraints/failing/016_subtyping_parameterized_types.t b/Moose-t-failing/040_type_constraints/016_subtyping_parameterized_types.t
similarity index 87%
rename from t/040_type_constraints/failing/016_subtyping_parameterized_types.t
rename to Moose-t-failing/040_type_constraints/016_subtyping_parameterized_types.t
index 2fa5f60..00f9665 100644 (file)
--- a/t/040_type_constraints/failing/016_subtyping_parameterized_types.t
+++ b/Moose-t-failing/040_type_constraints/016_subtyping_parameterized_types.t
@@ -1,9 +1,13 @@
 #!/usr/bin/perl
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
 
 use strict;
 use warnings;
 
-use Test::More tests => 39;
+use Test::More;
+$TODO = q{Mouse is not yet completed};
 use Test::Exception;
 
 BEGIN {
@@ -21,7 +25,7 @@ lives_ok {
     is($t->name, 'MySpecialHash', '... name is correct');
 
     my $p = $t->parent;
-    isa_ok($p, 'Mouse::Meta::TypeConstraint::Parameterized');
+    isa_ok($p, 'Mouse::Meta::TypeConstraint');
     isa_ok($p, 'Mouse::Meta::TypeConstraint');
 
     is($p->name, 'HashRef[Int]', '... parent name is correct');
@@ -53,7 +57,7 @@ lives_ok {
     is($t->name, 'MySpecialHashExtended', '... name is correct');
 
     my $p = $t->parent;
-    isa_ok($p, 'Mouse::Meta::TypeConstraint::Parameterized');
+    isa_ok($p, 'Mouse::Meta::TypeConstraint');
     isa_ok($p, 'Mouse::Meta::TypeConstraint');
 
     is($p->name, 'HashRef[Int]', '... parent name is correct');
@@ -73,7 +77,7 @@ lives_ok {
     my $t = find_type_constraint('MyNonSpecialHash');
 
     isa_ok($t, 'Mouse::Meta::TypeConstraint');
-    isa_ok($t, 'Mouse::Meta::TypeConstraint::Parameterizable');
+    isa_ok($t, 'Mouse::Meta::TypeConstraint');
 
     ok( $t->check({ one => 1, two => "foo", three => [] }), "validated" );
     ok( !$t->check({ one => 1 }), "failed" );
@@ -119,3 +123,13 @@ lives_ok {
             as 'SubOfMyArrayRef[Str]';
     }, qr/Str is not a subtype of BiggerInt/, 'Failed to parameterize with a bad type parameter';
 }
+
+{
+    my $RefToInt = subtype as 'ScalarRef[Int]';
+
+    ok $RefToInt->check(\1), '\1 is okay';
+    ok !$RefToInt->check(1), '1 is not';
+    ok !$RefToInt->check(\"foo"), '\"foo" is not';
+}
+
+done_testing;