Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/namespace-clean-0.27/t/05-explicit-cleanee.t
use warnings;
use strict;
use lib 't/lib';
use Test::More tests => 2019;
use_ok('CleaneeTarget');
ok CleaneeTarget->can('IGNORED'), 'symbol in exception list still there';
ok CleaneeTarget->can('NOTAWAY'), 'symbol after import call still there';
ok !CleaneeTarget->can('AWAY'), 'normal symbol has disappeared';
ok !CleaneeTarget->can('x_foo'), 'explicitely removed disappeared (1/2)';
ok CleaneeTarget->can('x_bar'), 'not in explicit removal and still there';
ok !CleaneeTarget->can('x_baz'), 'explicitely removed disappeared (2/2)';
ok !CleaneeTarget->can('d_foo'), 'directly removed disappeared (1/2)';
ok CleaneeTarget->can('d_bar'), 'not in direct removal and still there';
ok !CleaneeTarget->can('d_baz'), 'directly removed disappeared (2/2)';
my @values = qw( 23 27 17 XFOO XBAR XBAZ 7 8 9 );
is(CleaneeTarget->summary->[ $_ ], $values[ $_ ], sprintf('testing sub in cleanee (%d/%d)', $_ + 1, scalar @values))
for 0 .. $#values;
# some torture
{
local @INC = @INC;
my @code;
unshift @INC, sub {
if ($_[1] =~ /CleaneeTarget\/No(\d+)/) {
my @code = (
"package CleaneeTarget::No${1};",
"sub x_foo { 'XFOO' }",
"sub x_bar { 'XBAR' }",
"use CleaneeBridgeExplicit;",
"1;",
);
return sub { return 0 unless @code; $_ = shift @code; 1; }
}
else {
return ();
}
};
for (1..1000) {
my $pkg = "CleaneeTarget::No${_}";
require "CleaneeTarget/No${_}.pm";
ok !$pkg->can('x_foo'), 'explicitely removed disappeared';
ok $pkg->can('x_bar'), 'not in explicit removal and still there';
}
}
Mini Shell