Revert autogenerated tests. Tests should not changed radically.
[gitmo/Mouse.git] / t / 010_basics / 009_import_unimport.t
index 9e7ff9e..61c6ea8 100644 (file)
@@ -1,13 +1,9 @@
 #!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
 
 use strict;
 use warnings;
 
-use Test::More;
-$TODO = q{Mouse is not yet completed};
+use Test::More tests => 40;
 
 
 my @moose_exports = qw(
@@ -17,7 +13,6 @@ my @moose_exports = qw(
     override
     augment
     super inner
-    blessed confess
 );
 
 {
@@ -63,18 +58,7 @@ can_ok('Bar', $_) for @moose_type_constraint_exports;
     die $@ if $@;
 }
 
-ok(!Bar->can($_), '... Bar can no longer do ' . $_) for @moose_type_constraint_exports;
-
-
-{
-    package Baz;
 
-    use Mouse;
-    use Scalar::Util qw( blessed );
-
-    no Mouse;
-}
+ok(!Bar->can($_), '... Bar can no longer do ' . $_) for @moose_type_constraint_exports;
 
-can_ok( 'Baz', 'blessed' );
 
-done_testing;