Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
lib	[ DIR ]	drwxr-xr-x
00-basic.t	347 B	-rw-r--r--
01-function-wipeout.t	676 B	-rw-r--r--
02-inheritance.t	737 B	-rw-r--r--
03-unimport.t	427 B	-rw-r--r--
04-except.t	756 B	-rw-r--r--
05-explicit-cleanee.t	1.6 KB	-rw-r--r--
05-syntax-error.t	178 B	-rw-r--r--
06-other-types.t	1.41 KB	-rw-r--r--
07-debugger.t	660 B	-rw-r--r--
07-pseudo-debugger.t	405 B	-rw-r--r--
08-const-sub.t	162 B	-rw-r--r--
09-fiddle-hinthash.t	860 B	-rw-r--r--
10-pure-perl.t	1.93 KB	-rw-r--r--
11-multiclean-in-scope.t	1.55 KB	-rw-r--r--

Code Editor : 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';
  }
}

${this.title}

Code Editor : 05-explicit-cleanee.t