Moved to t/100_bugs per stevan

[gitmo/Moose.git] / t / 100_bugs / 025_universal_methods_wrappable.t

#!perl

# UNIVERSAL methods should be wrappable

use strict;
use warnings;
    
{
    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::Exception;
    use Test::More tests => 2;

    TODO: {
        local $TODO = 'UNIVERSAL methods should be wrappable';

        lives_ok { with 'FakeBar' } 'applied role';

        my $foo = Foo->new;
        isa_ok $foo, 'Bar';
    };
}