# change ; and that doesn't fit well with how we're testing things.
use lib 't/lib';
-use Test::Leaner tests => 19 + 6;
+use Test::Leaner tests => 18 + 6;
use Scope::Upper qw<context_info UP HERE CALLER>;
$warnings = sub { use warnings; (caller 0)[9] }->() if "$]" < 5.007
and not $^W;
}
+ if (defined $warnings and $warnings =~ m/^\x55*$/) {
+ $warnings = $warnings::Bits{all};
+ }
my @exp = (
$pkg,
is_deeply [ context_info ], $exp0, 'main : context_info';
is_deeply [ context_info(HERE) ], $exp0, 'main : context_info HERE';
-is_deeply [ context_info(UP) ], $exp0, 'main : context_info UP';
is_deeply [ context_info(-1) ], $exp0, 'main : context_info -1';
package Scope::Upper::TestPkg::A; BEGIN { ::setup }
my @got = context_info(CALLER $depth);
my @exp = caller $depth;
defined and not $_ and $_ = '' for $exp[5];
+ if (defined $exp[9] and $exp[9] =~ m/^\x55*$/) {
+ $exp[9] = $warnings::Bits{all};
+ }
is_deeply \@got, \@exp, "context_info vs caller $depth";
}
}