[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;

$@ = '(ERRSV)';

my $foo = Foo->new;
isa_ok $foo, 'Foo';
is $foo->bar, 42;
$foo->bar(100);
is $foo->bar, 100;
note("\$@=$@");
Commit	Line	Data
84787870	1	#!perl -w
84787870	2
2b36fd6f	3	use Test::More;
	4
	5	BEGIN {
	6	if($^O =~ /bsd/) {
	7	plan skip_all => q{TODO: *bsd might fail on this tests (this test is an workaround to a core bug)};
	8	}
	9	}
	10
84787870	11	package Foo;
	12	use Mouse;
	13
	14	has bar => (
	15	is => 'rw',
	16
	17	trigger => sub {
	18	eval 'BEGIN{ die }';
	19	},
	20	default => sub {
	21	eval 'BEGIN{ die }';
	22	return 42;
	23	},
	24	);
	25
	26	sub BUILDARGS {
	27	eval 'BEGIN{ die }';
	28	return {};
	29	}
	30
	31	sub BUILD {
	32	eval 'BEGIN{ die }';
	33	}
	34
	35	package main;
	36
	37	use Test::More tests => 3;
	38
	39	$@ = '(ERRSV)';
	40
	41	my $foo = Foo->new;
	42	isa_ok $foo, 'Foo';
	43	is $foo->bar, 42;
	44	$foo->bar(100);
	45	is $foo->bar, 100;
	46	note("\$@=$@");