X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F010_basics%2F009_import_unimport.t;h=61c6ea89dc38491673ab0431b9e33e053dfaad97;hp=373eb2b6c7fd7641d1faba8794888cd2206f53ca;hb=96cd240d413bdc2db7079b75bb98188f91cd7393;hpb=60ad2cb7bf657ab608ab73b9fc7895008d220b7b diff --git a/t/010_basics/009_import_unimport.t b/t/010_basics/009_import_unimport.t index 373eb2b..61c6ea8 100755 --- a/t/010_basics/009_import_unimport.t +++ b/t/010_basics/009_import_unimport.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 41; +use Test::More tests => 40; my @moose_exports = qw( @@ -58,18 +58,7 @@ can_ok('Bar', $_) for @moose_type_constraint_exports; die $@ if $@; } -{ - local $TODO = 'Mouse::Util::TypeConstraints->unimport is not yet supported'; - ok(!Bar->can($_), '... Bar can no longer do ' . $_) for @moose_type_constraint_exports; -} -{ - package Baz; +ok(!Bar->can($_), '... Bar can no longer do ' . $_) for @moose_type_constraint_exports; - use Scalar::Util qw( blessed ); - use Mouse; - - no Mouse; -} -can_ok( 'Baz', 'blessed' );