DEATH TO ALL zionist ELLIPSES

[gitmo/Moose.git] / t / 040_type_constraints / 019_coerced_parameterized_types.t

diff --git a/t/040_type_constraints/019_coerced_parameterized_types.t b/t/040_type_constraints/019_coerced_parameterized_types.t
index 8c0d57c..0934235 100644 (file)
--- a/t/040_type_constraints/019_coerced_parameterized_types.t
+++ b/t/040_type_constraints/019_coerced_parameterized_types.t
@@ -30,17 +30,13 @@ lives_ok {
     coerce 'ArrayRef'
         => from 'MyList'
             => via { [ $_->items ] }
-} '... created the coercion okay';
+} 'created the coercion okay';
 
-my $mylist = Moose::Meta::TypeConstraint::Parameterized->new(
-    name           => 'MyList[Int]',
-    parent         => find_type_constraint('MyList'),
-    type_parameter => find_type_constraint('Int'),
-);
+my $mylist = Moose::Util::TypeConstraints::find_or_parse_type_constraint('MyList[Int]');
 
-ok($mylist->check(MyList->new(10, 20, 30)), '... validated it correctly');
-ok(!$mylist->check(MyList->new(10, "two")), '... validated it correctly');
-ok(!$mylist->check([10]), '... validated it correctly');
+ok($mylist->check(MyList->new(10, 20, 30)), 'validated it correctly (pass)');
+ok(!$mylist->check(MyList->new(10, "two")), 'validated it correctly (fail)');
+ok(!$mylist->check([10]), 'validated it correctly (fail)');
 
 subtype 'EvenList' => as 'MyList' => where { $_->items % 2 == 0 };
 
@@ -51,16 +47,12 @@ lives_ok {
     coerce 'ArrayRef'
         => from 'EvenList'
             => via { [ $_->items ] }
-} '... created the coercion okay';
+} 'created the coercion okay';
 
-my $evenlist = Moose::Meta::TypeConstraint::Parameterized->new(
-    name           => 'EvenList[Int]',
-    parent         => find_type_constraint('EvenList'),
-    type_parameter => find_type_constraint('Int'),
-);
+my $evenlist = Moose::Util::TypeConstraints::find_or_parse_type_constraint('EvenList[Int]');
 
-ok(!$evenlist->check(MyList->new(10, 20, 30)), '... validated it correctly');
-ok($evenlist->check(MyList->new(10, 20, 30, 40)), '... validated it correctly');
-ok(!$evenlist->check(MyList->new(10, "two")), '... validated it correctly');
-ok(!$evenlist->check([10, 20]), '... validated it correctly');
+ok(!$evenlist->check(MyList->new(10, 20, 30)), 'validated it correctly (fail)');
+ok($evenlist->check(MyList->new(10, 20, 30, 40)), 'validated it correctly (pass)');
+ok(!$evenlist->check(MyList->new(10, "two")), 'validated it correctly (fail)');
+ok(!$evenlist->check([10, 20]), 'validated it correctly (fail)');