6 use Test::More tests => 4;
8 use Mouse::Util::TypeConstraints;
17 return bless {@_}, $class;
23 => where { $_[0]->{size} };
26 my $type = find_type_constraint('FooWithSize');
27 ok( $type, 'made a FooWithSize constraint' );
28 ok( $type->parent, 'type has a parent type' );
29 is( $type->parent->name, 'Foo', 'parent type is Foo' );
30 isa_ok( $type->parent, 'Mouse::Meta::TypeConstraint::Class',
31 'parent type constraint is a class type' );