6 use Test::More tests => 46;
8 use Scope::Upper qw/:words/;
10 is HERE, 0, 'main : here';
11 is TOP, 0, 'main : top';
12 is UP, 0, 'main : up';
13 is DOWN, 0, 'main : down';
14 is SUB, undef, 'main : sub';
15 is EVAL, undef, 'main : eval';
18 is HERE, 0, '{ 1 } : here';
19 is TOP, 1, '{ 1 } : top';
20 is UP, 1, '{ 1 } : up';
21 is DOWN, 0, '{ 1 } : down';
22 is DOWN(UP), 0, '{ 1 } : up then down';
23 is UP(DOWN), 1, '{ 1 } : down then up';
27 is TOP, 1, 'do { 1 } : top';
28 is SUB, undef, 'do { 1 } : sub';
29 is EVAL, undef, 'do { 1 } : eval';
33 is TOP, 1, 'eval { 1 } : top';
34 is SUB, undef, 'eval { 1 } : sub';
35 is EVAL, 0, 'eval { 1 } : eval';
39 is TOP, 1, 'eval "1" : top';
40 is SUB, undef, 'eval "1" : sub';
41 is EVAL, 0, 'eval "1" : eval';
45 is TOP, 1, 'do { 1 } while (0) : top';
49 is TOP, 1, 'sub { 1 } : top';
50 is SUB, 0, 'sub { 1 } : sub';
51 is EVAL, undef, 'sub { 1 } : eval';
55 is TOP, 1, 'for () { 1 } : top';
64 is HERE, 0, 'mixed : here';
65 is TOP, 6, 'mixed : top';
66 is SUB, 2, 'mixed : first sub';
67 is SUB(SUB), 2, 'mixed : still first sub';
68 is EVAL, 1, 'mixed : first eval';
69 is EVAL(EVAL), 1, 'mixed : still first eval';
70 is EVAL(UP(EVAL)), 4, 'mixed : second eval';
79 is CALLER, 1, '{ } : caller';
80 is CALLER(0), 1, '{ } : caller 0';
81 is CALLER(1), 1, '{ } : caller 1';
83 is CALLER, 0, '{ sub { } } : caller';
84 is CALLER(0), 0, '{ sub { } } : caller 0';
85 is CALLER(1), 2, '{ sub { } } : caller 1';
87 is CALLER, 1, '{ sub { for { } } } : caller';
88 is CALLER(0), 1, '{ sub { for { } } } : caller 0';
89 is CALLER(1), 3, '{ sub { for { } } } : caller 1';
91 is CALLER, 0, '{ sub { for { eval { } } } } : caller';
92 is CALLER(0), 0, '{ sub { for { eval { } } } } : caller 0';
93 is CALLER(1), 2, '{ sub { for { eval { } } } } : caller 1';
94 is CALLER(2), 4, '{ sub { for { eval { } } } } : caller 2';