Properly todoify these role-role tests

[gitmo/MooseX-Role-Parameterized.git] / t / 150-composite-role-application.t

diff --git a/t/150-composite-role-application.t b/t/150-composite-role-application.t
index 05df310..fcf4460 100644 (file)
--- a/t/150-composite-role-application.t
+++ b/t/150-composite-role-application.t
@@ -2,7 +2,8 @@
 use strict;
 use warnings;
 
-use Test::More tests => 9;
+use Test::More tests => 6;
+use Test::Exception;
 
 do {
     package MyCompositeRoleA;
@@ -48,12 +49,11 @@ do {
          MyCompositeRoleB => { accessor  => 'bar' };
 };
 
-local $@;
-eval {
+TODO: {
+    local $TODO = "role-role application for parameterized roles doesn't work yet";
     ok(MyDoubleConsumer->can('foo'), 'first role in composite applied successfully');
     ok(MyDoubleConsumer->can('bar'), 'second role in composite applied successfully');
-}; 
-ok !$@, 'testing composite roles lived';
+};
 
 do {
     package MyExtendingRole;
@@ -82,12 +82,11 @@ do {
          MyExtendingRole  => { foo => 23 };
 };
 
-local $@;
-eval {
+TODO: {
+    local $TODO = "role-role application for parameterized roles doesn't work yet";
     ok(MyExtendedConsumer->can('bar'), 'role composed through other role applied successfully');
-    is(MyExtendedConsumer->new->foo, 23, 'role composing other role applied successfully');
-};
-ok !$@, 'testing role through application through other role lived';
+    is(eval { MyExtendedConsumer->new->foo }, 23, 'role composing other role applied successfully');
+};;
 
 do {
     package MyRoleProxy;
@@ -117,10 +116,9 @@ do {
     );
 };
 
-local $@;
-eval {
+TODO: {
+    local $TODO = "role-role application for parameterized roles doesn't work yet";
     ok(MyProxyConsumer->can('baz'), 'proxied role got applied successfully');
     ok(MyProxyConsumer->can('qux'), 'other role besides proxied one got applied successfully');
 };
-ok !$@, 'testing proxied roles lived';