X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02-mx-m-s.t;fp=t%2F02-mx-m-s.t;h=9b36d7795b58410bd605897ee6cfe696b5745581;hb=dfab7c8b29f43615983ca90c1c4474554cebfaa6;hp=083535b6812765a7a624ae54f2b8877ff0472abd;hpb=f2dec73df5a5b1eafeb7d39cbf5d775b29795cfb;p=gitmo%2FMooseX-AlwaysCoerce.git diff --git a/t/02-mx-m-s.t b/t/02-mx-m-s.t index 083535b..9b36d77 100644 --- a/t/02-mx-m-s.t +++ b/t/02-mx-m-s.t @@ -8,7 +8,7 @@ use Test::Requires { 'MooseX::Method::Signatures' => 0.01, }; -use Test::Exception; +use Test::Fatal; use Test::NoWarnings; { @@ -35,7 +35,7 @@ ok( (my $instance = MyClass->new), 'instance' ); TODO: { local $TODO = 'need rafl to help with implementation'; - lives_and { + is( exception { is $instance->foo(foo => "text", bar => 42), '4 42'; - } 'method called with coerced and uncoerced parameters'; + }, undef, 'method called with coerced and uncoerced parameters' ); }