[gitmo/Mouse.git] / t / 043-parameterized-type.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 1;
use Test::Exception;

TODO: {
    local $TODO = "Mouse does not support parameterized types yet";

    eval {
        package Foo;
        use Mouse;

        has foo => (
            is  => 'ro',
            isa => 'HashRef[Int]',
        );
    };

    ok(Foo->meta->has_attribute('foo'));
};
Commit	Line	Data
5fa003bf	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 1;
	5	use Test::Exception;
	6
	7	TODO: {
	8	local $TODO = "Mouse does not support parameterized types yet";
	9
	10	eval {
	11	package Foo;
	12	use Mouse;
	13
	14	has foo => (
	15	is => 'ro',
	16	isa => 'HashRef[Int]',
	17	);
	18	};
	19
	20	ok(Foo->meta->has_attribute('foo'));
	21	};
	22