set_initial_value and set_value split

[gitmo/Moose.git] / t / 010_basics / 009_import_unimport.t

diff --git a/t/010_basics/009_import_unimport.t b/t/010_basics/009_import_unimport.t
index 7ff0c60..08e0ced 100644 (file)
--- 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 => 46;
+use Test::More tests => 41;
 
 
 my @moose_exports = qw(
@@ -13,20 +13,22 @@ my @moose_exports = qw(
     override
     augment
     super inner
-    make_immutable
 );
 
 {
     package Foo;
 
-    use Moose;
+    eval 'use Moose';
+    die $@ if $@;
 }
 
 can_ok('Foo', $_) for @moose_exports;
 
 {
     package Foo;
-    no Moose;
+
+    eval 'no Moose';
+    die $@ if $@;
 }
 
 ok(!Foo->can($_), '... Foo can no longer do ' . $_) for @moose_exports;
@@ -43,15 +45,29 @@ my @moose_type_constraint_exports = qw(
 {
     package Bar;
 
-    use Moose::Util::TypeConstraints;
+    eval 'use Moose::Util::TypeConstraints';
+    die $@ if $@;
 }
 
 can_ok('Bar', $_) for @moose_type_constraint_exports;
 
 {
     package Bar;
-    no Moose::Util::TypeConstraints;
+
+    eval 'no Moose::Util::TypeConstraints';
+    die $@ if $@;
 }
 
 ok(!Bar->can($_), '... Bar can no longer do ' . $_) for @moose_type_constraint_exports;
 
+
+{
+    package Baz;
+
+    use Scalar::Util qw( blessed );
+    use Moose;
+
+    no Moose;
+}
+
+can_ok( 'Baz', 'blessed' );