X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2F018_runtime_roles_w_params.t;h=aa1a02bc7eeda6ae92c0a189c869c4cceba2c4be;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hp=8785cfdeeb3371f99fa024df24f5bff37cc7fa7f;hpb=8845df4dd6432e3164d078ade741409061adae9f;p=gitmo%2FMouse.git

diff --git a/t/030_roles/018_runtime_roles_w_params.t b/t/030_roles/018_runtime_roles_w_params.t
index 8785cfd..aa1a02b 100644
--- a/t/030_roles/018_runtime_roles_w_params.t
+++ b/t/030_roles/018_runtime_roles_w_params.t
@@ -1,16 +1,13 @@
 #!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
 
 use strict;
 use warnings;
 
-use Test::More;
-$TODO = q{Mouse is not yet completed};
+use Test::More tests => 21;
 use Test::Exception;
 
 
+
 {
     package Foo;
     use Mouse;
@@ -53,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 ...
@@ -68,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');
+    }
 }
 
-done_testing;
+