use strict;\r
use warnings;\r
\r
-use Test::More tests => 21;\r
+use Test::More tests => 19;\r
use Test::Exception;\r
\r
BEGIN {\r
- use_ok("Moose::Util::TypeConstraints");\r
+ use_ok("Mouse::Util::TypeConstraints");\r
}\r
\r
lives_ok {\r
\r
{\r
my $t = find_type_constraint('MyCollections');\r
- isa_ok($t, 'Moose::Meta::TypeConstraint');\r
+ isa_ok($t, 'Mouse::Meta::TypeConstraint');\r
\r
is($t->name, 'MyCollections', '... name is correct');\r
\r
my $p = $t->parent;\r
- isa_ok($p, 'Moose::Meta::TypeConstraint::Union');\r
- isa_ok($p, 'Moose::Meta::TypeConstraint');\r
+# isa_ok($p, 'Mouse::Meta::TypeConstraint::Union');\r
+ isa_ok($p, 'Mouse::Meta::TypeConstraint');\r
\r
is($p->name, 'ArrayRef|HashRef', '... parent name is correct');\r
\r
\r
{\r
my $t = find_type_constraint('MyCollectionsExtended');\r
- isa_ok($t, 'Moose::Meta::TypeConstraint');\r
+ isa_ok($t, 'Mouse::Meta::TypeConstraint');\r
\r
is($t->name, 'MyCollectionsExtended', '... name is correct');\r
\r
my $p = $t->parent;\r
- isa_ok($p, 'Moose::Meta::TypeConstraint::Union');\r
- isa_ok($p, 'Moose::Meta::TypeConstraint');\r
+# isa_ok($p, 'Mouse::Meta::TypeConstraint::Union');\r
+ isa_ok($p, 'Mouse::Meta::TypeConstraint');\r
\r
is($p->name, 'ArrayRef|HashRef', '... parent name is correct');\r
\r