9 use Test::More tests => 3;
11 use Scope::Upper qw<localize_elem UP>;
16 for (reverse 0 .. ($n-1)) {
17 localize_elem '@A', $_ => ($_ + 1) => UP UP;
21 is_deeply \@A, [ (0) x $n ], '@A was correctly initialized';
24 is_deeply \@A, [ 1 .. $n ], '@A elements are correctly localized';
26 is_deeply \@A, [ (0) x $n ], '@A regained its original elements';