6 use Test::More tests => 5;
10 use_ok('Moose::Util::TypeConstraints', { into => 'Foo' } );
17 type MyRef => where { ref($_) };
19 ::ok(!$@, '... successfully exported &type to Foo package');
24 => where { ref($_) eq 'ARRAY' };
26 ::ok(!$@, '... successfully exported &subtype to Foo package');
28 Moose::Util::TypeConstraints->export_type_contstraints_as_functions();
30 ::ok(MyRef({}), '... Ref worked correctly');
31 ::ok(MyArrayRef([]), '... ArrayRef worked correctly');