Commit | Line | Data |
9b680ffe |
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 => 6; |
8 | |
9 | use_ok('Unimport'); |
10 | |
11 | ok( !Unimport->can('foo'), |
12 | 'first function correctly removed' ); |
13 | ok( Unimport->can('bar'), |
14 | 'excluded method still in package' ); |
15 | ok( !Unimport->can('baz'), |
16 | 'second function correctly removed' ); |
17 | ok( Unimport->can('qux'), |
18 | 'last method still in package' ); |
19 | is( Unimport->qux, 23, |
20 | 'all functions are still bound' ); |
21 | |