From: gfx <gfuji@cpan.org>
Date: Wed, 7 Oct 2009 12:03:29 +0000 (+0900)
Subject: Resolve 4 'failing' tests
X-Git-Tag: 0.37_03~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=e827cd75137d0cda1ea9c690f4efed2c89af924d

Resolve 4 'failing' tests
---

diff --git a/t/030_roles/failing/015_runtime_roles_and_attrs.t b/t/030_roles/015_runtime_roles_and_attrs.t
similarity index 100%
rename from t/030_roles/failing/015_runtime_roles_and_attrs.t
rename to t/030_roles/015_runtime_roles_and_attrs.t
diff --git a/t/030_roles/failing/017_extending_role_attrs.t b/t/030_roles/017_extending_role_attrs.t
similarity index 100%
rename from t/030_roles/failing/017_extending_role_attrs.t
rename to t/030_roles/017_extending_role_attrs.t
diff --git a/t/030_roles/failing/018_runtime_roles_w_params.t b/t/030_roles/018_runtime_roles_w_params.t
similarity index 78%
rename from t/030_roles/failing/018_runtime_roles_w_params.t
rename to t/030_roles/018_runtime_roles_w_params.t
index 3bce166..aa1a02b 100644
--- a/t/030_roles/failing/018_runtime_roles_w_params.t
+++ b/t/030_roles/018_runtime_roles_w_params.t
@@ -50,7 +50,10 @@ use Test::Exception;
 
     is($foo->bar, 'BAR', '... got the expect value');
     ok($foo->can('baz'), '... we have baz method now');
-    is($foo->baz, 'FOO-BAZ', '... got the expect value');
+    {
+        local $TODO = 'rebless_params is not implemented';
+        is($foo->baz, 'FOO-BAZ', '... got the expect value');
+    }
 }
 
 # with extra params ...
@@ -65,9 +68,15 @@ use Test::Exception;
         Bar->meta->apply($foo, (rebless_params => { bar => 'FOO-BAR', baz => 'FOO-BAZ' }))
     } '... this works';
 
-    is($foo->bar, 'FOO-BAR', '... got the expect value');
+    {
+        local $TODO = 'rebless params is not implemented';
+        is($foo->bar, 'FOO-BAR', '... got the expect value');
+    }
     ok($foo->can('baz'), '... we have baz method now');
-    is($foo->baz, 'FOO-BAZ', '... got the expect value');
+    {
+        local $TODO = 'rebless params is not implemented';
+        is($foo->baz, 'FOO-BAZ', '... got the expect value');
+    }
 }
 
 
diff --git a/t/030_roles/failing/037_create_role_subclass.t b/t/030_roles/037_create_role_subclass.t
similarity index 100%
rename from t/030_roles/failing/037_create_role_subclass.t
rename to t/030_roles/037_create_role_subclass.t