6 use Test::More 'no_plan';
8 use Scope::Upper qw/localize_elem UP HERE/;
11 use Scope::Upper::TestGenerator;
13 local $Scope::Upper::TestGenerator::testlocal = sub { '' };
15 local $Scope::Upper::TestGenerator::allblocks = 1;
19 local $Scope::Upper::TestGenerator::call = sub {
20 my ($height, $level, $i) = @_;
21 $level = $level ? 'UP ' x $level : 'HERE';
22 return [ "localize_elem '\@a', 1 => 0 => $level;\n" ];
25 local $Scope::Upper::TestGenerator::test = sub {
26 my ($height, $level, $i, $x) = @_;
27 my $j = ($i == $height - $level) ? 0 : (defined $x ? $x : 11);
28 return "is(\$a[1], $j, 'x h=$height, l=$level, i=$i');\n";
31 local $Scope::Upper::TestGenerator::local = sub {
33 return "local \$a[1] = $x;\n";
38 for my $level (0 .. 1) {
39 my $height = $level + 1;
40 my $tests = Scope::Upper::TestGenerator::gen($height, $level);
49 local $Scope::Upper::TestGenerator::call = sub {
50 my ($height, $level, $i) = @_;
51 $level = $level ? 'UP ' x $level : 'HERE';
52 return [ "localize_elem '%h', 'a' => 0 => $level;\n" ];
55 local $Scope::Upper::TestGenerator::test = sub {
56 my ($height, $level, $i, $x) = @_;
57 my $j = ($i == $height - $level) ? 0 : (defined $x ? $x : 'undef');
58 return "is(\$h{a}, $j, 'x h=$height, l=$level, i=$i');\n";
61 local $Scope::Upper::TestGenerator::local = sub {
63 return "local \$h{a} = $x;\n";
68 for my $level (0 .. 1) {
69 my $height = $level + 1;
70 my $tests = Scope::Upper::TestGenerator::gen($height, $level);