[gitmo/Mouse.git] / t / 900_bug / 003_RT50421.t

#!/usr/bin/perl -w
use Test;

plan tests => 3;

{
    package Class;
    sub new {}
}

{
    package MouseClass;
    use Mouse;
}


{
    package Foo;

    use Mouse;

    has unknown => (
        is  => 'rw',
        isa => 'HashRef[Unknown]'
    );

    has class   => (
        is      => 'rw',
        isa     => 'HashRef[Class]',
    );

    has mouse   => (
        is      => 'rw',
        isa     => 'HashRef[MouseClass]',
    );
}


my $obj = Foo->new;
ok eval { $obj->unknown({}); };
ok eval { $obj->class({}); };
ok eval { $obj->mouse({}); };
Commit	Line	Data
cf938ec7	1	#!/usr/bin/perl -w
	2	use Test;
	3
	4	plan tests => 3;
	5
	6	{
	7	package Class;
	8	sub new {}
	9	}
	10
	11	{
	12	package MouseClass;
	13	use Mouse;
	14	}
	15
	16
	17	{
	18	package Foo;
	19
	20	use Mouse;
	21
	22	has unknown => (
	23	is => 'rw',
	24	isa => 'HashRef[Unknown]'
	25	);
	26
	27	has class => (
	28	is => 'rw',
	29	isa => 'HashRef[Class]',
	30	);
	31
	32	has mouse => (
	33	is => 'rw',
	34	isa => 'HashRef[MouseClass]',
	35	);
	36	}
	37
	38
	39	my $obj = Foo->new;
	40	ok eval { $obj->unknown({}); };
	41	ok eval { $obj->class({}); };
	42	ok eval { $obj->mouse({}); };