X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03-coercions.t;h=792afac6915ada69babe922b62ebbfce2683a698;hb=019d00e6528ae09ee74a7f8eb3b99fecebed02c2;hp=5fc82622264b12e2ef12e48c9ab12b5e992a27fd;hpb=26cf337eb5c6275eddbcda39f7187416d6314b2f;p=gitmo%2FMooseX-Dependent.git diff --git a/t/03-coercions.t b/t/03-coercions.t index 5fc8262..792afac 100644 --- a/t/03-coercions.t +++ b/t/03-coercions.t @@ -53,11 +53,11 @@ use Test::More tests=>15; { is OlderThanAge([older_than=>5])->coerce([1..10]), 55, 'Coerce works'; is OlderThanAge([older_than=>5])->coerce({a=>1,b=>2,c=>3,d=>4}), 4, - 'inherit Coerce works'; + 'Coerce works'; like OlderThanAge([older_than=>2])->name, qr/main::OlderThanAge\[/, 'Got correct name for OlderThanAge([older_than=>2])'; is OlderThanAge([older_than=>2])->coerce({a=>5,b=>6,c=>7,d=>8}), 4, - 'inherited Coerce works'; + 'Coerce works'; SKIP: { skip 'Type Coercions on defined types not supported yet', 1;