Commit | Line | Data |
---|---|---|
40aef9d6 | 1 | #!/usr/bin/env perl |
2 | use warnings; | |
3 | use strict; | |
4 | ||
5 | use FindBin; | |
6 | use lib "$FindBin::Bin/lib"; | |
7 | use Test::More tests => 5; | |
8 | ||
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 |