X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F040_type_constraints%2F019_coerced_parameterized_types.t;h=724b1c0982429d9f6d652a87dff111ea9b97414d;hb=7bec196c5513eab13177370e65889ac9af4489de;hp=9010448bc2719d64900d702f6fb57c32e0a6ec63;hpb=7e4e1ad46fd4c72845b18df57a80cdc03b47c4c4;p=gitmo%2FMoose.git

diff --git a/t/040_type_constraints/019_coerced_parameterized_types.t b/t/040_type_constraints/019_coerced_parameterized_types.t
index 9010448..724b1c0 100644
--- a/t/040_type_constraints/019_coerced_parameterized_types.t
+++ b/t/040_type_constraints/019_coerced_parameterized_types.t
@@ -32,7 +32,7 @@ lives_ok {
             => via { [ $_->items ] }
 } '... created the coercion okay';
 
-my $mylist = Moose::Util::TypeConstraints::find_or_create_type_constraint('MyList[Int]');
+my $mylist = Moose::Util::TypeConstraints::find_or_parse_type_constraint('MyList[Int]');
 
 ok($mylist->check(MyList->new(10, 20, 30)), '... validated it correctly (pass)');
 ok(!$mylist->check(MyList->new(10, "two")), '... validated it correctly (fail)');
@@ -49,7 +49,7 @@ lives_ok {
             => via { [ $_->items ] }
 } '... created the coercion okay';
 
-my $evenlist = Moose::Util::TypeConstraints::find_or_create_type_constraint('EvenList[Int]');
+my $evenlist = Moose::Util::TypeConstraints::find_or_parse_type_constraint('EvenList[Int]');
 
 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)');