-#!/usr/bin/env perl
use warnings;
use strict;
-use FindBin;
-use lib "$FindBin::Bin/lib";
-use Test::More tests => 19;
+use lib 't/lib';
+use Test::More tests => 2019;
use_ok('CleaneeTarget');
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';
+ }
+}