6 use lib "$FindBin::Bin/lib";
7 use Test::More tests => 19;
9 use_ok('CleaneeTarget');
11 ok CleaneeTarget->can('IGNORED'), 'symbol in exception list still there';
12 ok CleaneeTarget->can('NOTAWAY'), 'symbol after import call still there';
13 ok !CleaneeTarget->can('AWAY'), 'normal symbol has disappeared';
15 ok !CleaneeTarget->can('x_foo'), 'explicitely removed disappeared (1/2)';
16 ok CleaneeTarget->can('x_bar'), 'not in explicit removal and still there';
17 ok !CleaneeTarget->can('x_baz'), 'explicitely removed disappeared (2/2)';
19 ok !CleaneeTarget->can('d_foo'), 'directly removed disappeared (1/2)';
20 ok CleaneeTarget->can('d_bar'), 'not in direct removal and still there';
21 ok !CleaneeTarget->can('d_baz'), 'directly removed disappeared (2/2)';
23 my @values = qw( 23 27 17 XFOO XBAR XBAZ 7 8 9 );
24 is(CleaneeTarget->summary->[ $_ ], $values[ $_ ], sprintf('testing sub in cleanee (%d/%d)', $_ + 1, scalar @values))