Mouse::Util::does_role() respects $thing->does() method

[gitmo/Mouse.git] / t / 900_mouse_bugs / 006_RT69939.t

#!perl -w

use Test::More;

BEGIN {
    if($^O =~ /bsd/) {
        plan skip_all => q{TODO: *bsd might fail on this tests (this test is an workaround to a core bug)};
    }
}

package Foo;
use Mouse;

has bar => (
    is => 'rw',

    trigger => sub {
        eval 'BEGIN{ die }';
    },
    default => sub {
        eval 'BEGIN{ die }';
        return 42;
    },
);

sub BUILDARGS {
    eval 'BEGIN{ die }';
    return {};
}

sub BUILD {
    eval 'BEGIN{ die }';
}

package main;

use Test::More tests => 3 * 3;

$@ = '(ERRSV)';

note 'do {}';
do {
    my $foo = Foo->new;
    isa_ok $foo, 'Foo';
    is $foo->bar, 42;
    $foo->bar(100);
    is $foo->bar, 100;
    note("\$@=$@");
};

note 'eval {}';
eval {
    my $foo = Foo->new;
    isa_ok $foo, 'Foo';
    is $foo->bar, 42;
    $foo->bar(100);
    is $foo->bar, 100;
    note("\$@=$@");
};

note 'eval ""';
eval q{
    my $foo = Foo->new;
    isa_ok $foo, 'Foo';
    is $foo->bar, 42;
    $foo->bar(100);
    is $foo->bar, 100;
    note("\$@=$@");
};