X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F040_type_constraints%2F017_subtyping_union_types.t;h=44ffd95b1093a981e2306b5a05872602f7e87db7;hb=eb4c4e821e3636e607b09919b1403d52ddbee092;hp=22dec83e005729922be979bfacbbaa74421629b0;hpb=6217e87a7755f70a92f848f7c609cfd8ef4d2873;p=gitmo%2FMoose.git diff --git a/t/040_type_constraints/017_subtyping_union_types.t b/t/040_type_constraints/017_subtyping_union_types.t index 22dec83..44ffd95 100644 --- a/t/040_type_constraints/017_subtyping_union_types.t +++ b/t/040_type_constraints/017_subtyping_union_types.t @@ -24,7 +24,7 @@ lives_ok { isa_ok($p, 'Moose::Meta::TypeConstraint::Union'); isa_ok($p, 'Moose::Meta::TypeConstraint'); - is($p->name, 'ArrayRef | HashRef', '... parent name is correct'); + is($p->name, 'ArrayRef|HashRef', '... parent name is correct'); ok($t->check([]), '... validated it correctly'); ok($t->check({}), '... validated it correctly'); @@ -33,7 +33,7 @@ lives_ok { lives_ok { subtype 'MyCollectionsExtended' - => as 'ArrayRef | HashRef' + => as 'ArrayRef|HashRef' => where { if (ref($_) eq 'ARRAY') { return if scalar(@$_) < 2; @@ -55,7 +55,7 @@ lives_ok { isa_ok($p, 'Moose::Meta::TypeConstraint::Union'); isa_ok($p, 'Moose::Meta::TypeConstraint'); - is($p->name, 'ArrayRef | HashRef', '... parent name is correct'); + is($p->name, 'ArrayRef|HashRef', '... parent name is correct'); ok(!$t->check([]), '... validated it correctly'); ok($t->check([1, 2]), '... validated it correctly');