2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
11 use Mouse::Util::TypeConstraints;
20 return bless {@_}, $class;
26 => where { $_[0]->{size} };
29 my $type = find_type_constraint('FooWithSize');
30 ok( $type, 'made a FooWithSize constraint' );
31 ok( $type->parent, 'type has a parent type' );
32 is( $type->parent->name, 'Foo', 'parent type is Foo' );
33 isa_ok( $type->parent, 'Mouse::Meta::TypeConstraint',
34 'parent type constraint is a class type' );