methods from UNIVERSAL are now wrappable

[gitmo/Moose.git] / t / bugs / universal_methods_wrappable.t

diff --git a/t/bugs/universal_methods_wrappable.t b/t/bugs/universal_methods_wrappable.t
deleted file mode 100644 (file)
index 1d4a1cf..0000000
--- a/t/bugs/universal_methods_wrappable.t
+++ /dev/null
@@ -1,31 +0,0 @@
-use strict;
-use warnings;
-
-use Test::Fatal;
-use Test::More;
-
-{
-
-    package FakeBar;
-    use Moose::Role;
-
-    around isa => sub {
-        my ( $orig, $self, $v ) = @_;
-        return 1 if $v eq 'Bar';
-        return $orig->( $self, $v );
-    };
-
-    package Foo;
-    use Moose;
-
-    use Test::More; # for $TODO
-
-    local $TODO = 'UNIVERSAL methods should be wrappable';
-
-    ::is( ::exception { with 'FakeBar' }, undef, 'applied role' );
-
-    my $foo = Foo->new;
-    ::isa_ok $foo, 'Bar';
-}
-
-done_testing;