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=c79c947d7ac64e10c96f04ac3fd35000ed13051d;hb=4239a8b1c5b35083561fe62652840f86e4fcac68;hp=856e9bae1b86fdf09a7a879e924a8318ff2fb2ac;hpb=e307e391921ca301d84e6c57f569beb44d7dbb98;p=gitmo%2FMooseX-AlwaysCoerce.git

diff --git a/t/02-mx-m-s.t b/t/02-mx-m-s.t
index 856e9ba..c79c947 100644
--- a/t/02-mx-m-s.t
+++ b/t/02-mx-m-s.t
@@ -34,6 +34,10 @@ BEGIN {
 
 ok( (my $instance = MyClass->new), 'instance' );
 
-lives_and {
-    is $instance->foo(foo => "text", bar => 42), '4 42';
-} 'method called with coerced and uncoerced parameters';
+TODO: {
+    local $TODO = 'need rafl to help with implementation';
+
+    lives_and {
+        is $instance->foo(foo => "text", bar => 42), '4 42';
+    } 'method called with coerced and uncoerced parameters';
+}