tests for selective coercion

[gitmo/Moose.git] / t / 040_type_constraints / 017_subtyping_union_types.t

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 (file)
--- 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');