Resolve 4 'failing' tests

[gitmo/Mouse.git] / t / 030_roles / failing / 018_runtime_roles_w_params.t

diff --git a/t/030_roles/failing/018_runtime_roles_w_params.t b/t/030_roles/failing/018_runtime_roles_w_params.t
deleted file mode 100644 (file)
index 3bce166..0000000
--- a/t/030_roles/failing/018_runtime_roles_w_params.t
+++ /dev/null
@@ -1,73 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 21;
-use Test::Exception;
-
-
-
-{
-    package Foo;
-    use Mouse;
-    has 'bar' => (is => 'ro');
-
-    package Bar;
-    use Mouse::Role;
-
-    has 'baz' => (is => 'ro', default => 'BAZ');
-}
-
-# normal ...
-{
-    my $foo = Foo->new(bar => 'BAR');
-    isa_ok($foo, 'Foo');
-
-    is($foo->bar, 'BAR', '... got the expect value');
-    ok(!$foo->can('baz'), '... no baz method though');
-
-    lives_ok {
-        Bar->meta->apply($foo)
-    } '... this works';
-
-    is($foo->bar, 'BAR', '... got the expect value');
-    ok($foo->can('baz'), '... we have baz method now');
-    is($foo->baz, 'BAZ', '... got the expect value');
-}
-
-# with extra params ...
-{
-    my $foo = Foo->new(bar => 'BAR');
-    isa_ok($foo, 'Foo');
-
-    is($foo->bar, 'BAR', '... got the expect value');
-    ok(!$foo->can('baz'), '... no baz method though');
-
-    lives_ok {
-        Bar->meta->apply($foo, (rebless_params => { baz => 'FOO-BAZ' }))
-    } '... this works';
-
-    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');
-}
-
-# with extra params ...
-{
-    my $foo = Foo->new(bar => 'BAR');
-    isa_ok($foo, 'Foo');
-
-    is($foo->bar, 'BAR', '... got the expect value');
-    ok(!$foo->can('baz'), '... no baz method though');
-
-    lives_ok {
-        Bar->meta->apply($foo, (rebless_params => { bar => 'FOO-BAR', baz => 'FOO-BAZ' }))
-    } '... this works';
-
-    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');
-}
-
-