6 use Test::More tests => 5;
10 use_ok('Moose::Util::TypeConstraints', ('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');