[gitmo/Mouse.git] / t / 990_deprecated / 990-undefined-class-type.t

#!perl\r
\r
use strict;
use warnings;
use Test::More tests => 5;\r
\r
use Mouse::Util::TypeConstraints;\r

my $z = Mouse::Util::TypeConstraints::find_or_create_isa_type_constraint('My::New::Class | Str');
\r
#diag $z->dump;\r

eval q{
    package My::New::Class;
    use Mouse;
    package My::New::DerivedClass;
    use Mouse;
    extends 'My::New::Class';
};

ok $z->check(My::New::Class->new);
ok $z->check(My::New::DerivedClass->new);
ok $z->check('Foo');
ok!$z->check(undef);
ok!$z->check(bless {}, 'Foo');
Commit	Line	Data
b20f7ca9	1	#!perl\r
	2	\r
	3	use strict;
	4	use warnings;
	5	use Test::More tests => 5;\r
	6	\r
	7	use Mouse::Util::TypeConstraints;\r
	8
	9	my $z = Mouse::Util::TypeConstraints::find_or_create_isa_type_constraint('My::New::Class \| Str');
	10	\r
	11	#diag $z->dump;\r
	12
	13	eval q{
	14	package My::New::Class;
	15	use Mouse;
	16	package My::New::DerivedClass;
	17	use Mouse;
	18	extends 'My::New::Class';
	19	};
	20
	21	ok $z->check(My::New::Class->new);
	22	ok $z->check(My::New::DerivedClass->new);
	23	ok $z->check('Foo');
	24	ok!$z->check(undef);
	25	ok!$z->check(bless {}, 'Foo');
	26