From: gfx Date: Thu, 1 Oct 2009 06:19:33 +0000 (+0900) Subject: s/Moose/Mouse/ in a test X-Git-Tag: 0.37_01~6 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d16f42f3dda545377565fe301d7d98f4e2ee632b;p=gitmo%2FMouse.git s/Moose/Mouse/ in a test --- diff --git a/t/040_type_constraints/017_subtyping_union_types.t b/t/040_type_constraints/017_subtyping_union_types.t index ff8d90d..505e92c 100755 --- a/t/040_type_constraints/017_subtyping_union_types.t +++ b/t/040_type_constraints/017_subtyping_union_types.t @@ -3,11 +3,11 @@ use strict; use warnings; -use Test::More tests => 21; +use Test::More tests => 19; use Test::Exception; BEGIN { - use_ok("Moose::Util::TypeConstraints"); + use_ok("Mouse::Util::TypeConstraints"); } lives_ok { @@ -16,13 +16,13 @@ lives_ok { { my $t = find_type_constraint('MyCollections'); - isa_ok($t, 'Moose::Meta::TypeConstraint'); + isa_ok($t, 'Mouse::Meta::TypeConstraint'); is($t->name, 'MyCollections', '... name is correct'); my $p = $t->parent; - isa_ok($p, 'Moose::Meta::TypeConstraint::Union'); - isa_ok($p, 'Moose::Meta::TypeConstraint'); +# isa_ok($p, 'Mouse::Meta::TypeConstraint::Union'); + isa_ok($p, 'Mouse::Meta::TypeConstraint'); is($p->name, 'ArrayRef|HashRef', '... parent name is correct'); @@ -47,13 +47,13 @@ lives_ok { { my $t = find_type_constraint('MyCollectionsExtended'); - isa_ok($t, 'Moose::Meta::TypeConstraint'); + isa_ok($t, 'Mouse::Meta::TypeConstraint'); is($t->name, 'MyCollectionsExtended', '... name is correct'); my $p = $t->parent; - isa_ok($p, 'Moose::Meta::TypeConstraint::Union'); - isa_ok($p, 'Moose::Meta::TypeConstraint'); +# isa_ok($p, 'Mouse::Meta::TypeConstraint::Union'); + isa_ok($p, 'Mouse::Meta::TypeConstraint'); is($p->name, 'ArrayRef|HashRef', '... parent name is correct');