X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01-function-wipeout.t;h=be2430ba0c87e64ad129b36ca5c75254abe75baa;hb=53e92ec5277d51ae5e1726f8153b87353bb14665;hp=a0e3c169028156d2b4fb5335884b69fdc93023fd;hpb=6c0ece9ba4e73a0f83be4fc6e92072995fd21696;p=p5sagit%2Fnamespace-clean.git

diff --git a/t/01-function-wipeout.t b/t/01-function-wipeout.t
index a0e3c16..be2430b 100644
--- 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' );