6 use Test::More tests => 47;
12 my @moose_exports = qw(
30 ok(!$@, '... Moose succesfully exported into Foo');
32 can_ok('Foo', $_) for @moose_exports;
38 ok(!$@, '... Moose succesfully un-exported from Foo');
40 ok(!Foo->can($_), '... Foo can no longer do ' . $_) for @moose_exports;
42 # and check the type constraints as well
44 my @moose_type_constraint_exports = qw(
45 type subtype as where message
57 use Moose::Util::TypeConstraints;
59 ok(!$@, '... Moose::Util::TypeConstraints succesfully exported into Bar');
61 can_ok('Bar', $_) for @moose_type_constraint_exports;
65 no Moose::Util::TypeConstraints;
67 ok(!$@, '... Moose::Util::TypeConstraints succesfully un-exported from Bar');
69 ok(!Bar->can($_), '... Bar can no longer do ' . $_) for @moose_type_constraint_exports;