Import namespace-clean-0.04.tar.gz.

[p5sagit/namespace-clean.git] / t / 01-function-wipeout.t

diff --git a/t/01-function-wipeout.t b/t/01-function-wipeout.t
index a0e3c16..be2430b 100644 (file)
--- a/t/01-function-wipeout.t
+++ b/t/01-function-wipeout.t
@@ -4,7 +4,7 @@ use strict;
 
 use FindBin;
 use lib "$FindBin::Bin/lib";
-use Test::More tests => 5;
+use Test::More tests => 9;
 
 use_ok('FunctionWipeout');
 ok( !FunctionWipeout->can('foo'),
@@ -15,4 +15,11 @@ ok( FunctionWipeout->can('baz'),
     'later declared function still exists' );
 is( FunctionWipeout->baz, 23,
     'removed functions still bound' );
-
+ok( FunctionWipeout->can('qux'),
+    '-except flag keeps import' );
+is( FunctionWipeout->qux, 17,
+    'kept import still works' );
+ok( $FunctionWipeout::foo,
+    'non-code symbol was not removed' );
+is( $FunctionWipeout::foo, 777,
+    'non-code symbol still has correct value' );