6 use Test::More tests => 19;
8 use Scope::Upper qw/want_at/;
11 my ($w, $exp, $desc) = @_;
22 is $cx->($w), $cx->($exp), $desc;
27 check want_at, undef, 'main : want_at';
28 check want_at(0), undef, 'main : want_at(0)';
29 check want_at(1), undef, 'main : want_at(1)';
30 check want_at(-1), undef, 'main : want_at(-1)';
33 check want_at, 1, 'sub0 : want_at';
35 check want_at, 1, 'sub : want_at';
36 check want_at(1), 1, 'sub : want_at(1)';
38 check want_at, 1, 'for : want_at';
39 check want_at(1), 1, 'for : want_at(1)';
40 check want_at(2), 1, 'for : want_at(2)';
43 check want_at, undef, 'eval string : want_at';
44 check want_at(1), 1, 'eval string : want_at(1)';
45 check want_at(2), 1, 'eval string : want_at(2)';
49 check want_at, 0, 'do : want_at';
50 check want_at(1), 0, 'do : want_at(0)';
51 check want_at(2), 1, 'do : want_at(1)';
53 check want_at, 0, 'eval : want_at';
54 check want_at(1), 1, 'eval : want_at(0)';
55 check want_at(2), 1, 'eval : want_at(1)';