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=8785cfdeeb3371f99fa024df24f5bff37cc7fa7f;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=aa1a02bc7eeda6ae92c0a189c869c4cceba2c4be;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27;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 aa1a02b..8785cfd 100644 --- a/t/030_roles/018_runtime_roles_w_params.t +++ b/t/030_roles/018_runtime_roles_w_params.t @@ -1,13 +1,16 @@ #!/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 tests => 21; +use Test::More; +$TODO = q{Mouse is not yet completed}; use Test::Exception; - { package Foo; use Mouse; @@ -50,10 +53,7 @@ use Test::Exception; is($foo->bar, 'BAR', '... got the expect value'); ok($foo->can('baz'), '... we have baz method now'); - { - local $TODO = 'rebless_params is not implemented'; - is($foo->baz, 'FOO-BAZ', '... got the expect value'); - } + is($foo->baz, 'FOO-BAZ', '... got the expect value'); } # with extra params ... @@ -68,15 +68,9 @@ use Test::Exception; Bar->meta->apply($foo, (rebless_params => { bar => 'FOO-BAR', baz => 'FOO-BAZ' })) } '... this works'; - { - local $TODO = 'rebless params is not implemented'; - is($foo->bar, 'FOO-BAR', '... got the expect value'); - } + is($foo->bar, 'FOO-BAR', '... got the expect value'); ok($foo->can('baz'), '... we have baz method now'); - { - local $TODO = 'rebless params is not implemented'; - is($foo->baz, 'FOO-BAZ', '... got the expect value'); - } + is($foo->baz, 'FOO-BAZ', '... got the expect value'); } - +done_testing;