6 use lib "$FindBin::Bin/lib";
7 use Test::More tests => 9;
9 use_ok('FunctionWipeout');
10 ok( !FunctionWipeout->can('foo'),
11 'imported function removed' );
12 ok( !FunctionWipeout->can('bar'),
13 'previously declared function removed' );
14 ok( FunctionWipeout->can('baz'),
15 'later declared function still exists' );
16 is( FunctionWipeout->baz, 23,
17 'removed functions still bound' );
18 ok( FunctionWipeout->can('qux'),
19 '-except flag keeps import' );
20 is( FunctionWipeout->qux, 17,
21 'kept import still works' );
22 ok( $FunctionWipeout::foo,
23 'non-code symbol was not removed' );
24 is( $FunctionWipeout::foo, 777,
25 'non-code symbol still has correct value' );