6 use Test::More tests => 18;
8 use Scope::Upper qw<want_at UP HERE>;
11 my ($w, $exp, $desc) = @_;
22 is $cx->($w), $cx->($exp), $desc;
27 check want_at, undef, 'main : want_at';
28 check want_at(HERE), undef, 'main : want_at HERE';
29 check want_at(-1), undef, 'main : want_at -1';
32 check want_at, 1, 'sub0 : want_at';
34 check want_at, 1, 'sub : want_at';
35 check want_at(UP), 1, 'sub : want_at UP';
37 check want_at, 1, 'for : want_at';
38 check want_at(UP), 1, 'for : want_at UP';
39 check want_at(UP UP), 1, 'for : want_at UP UP';
42 check want_at, undef, 'eval string : want_at';
43 check want_at(UP), 1, 'eval string : want_at UP';
44 check want_at(UP UP), 1, 'eval string : want_at UP UP';
48 check want_at, 0, 'do : want_at';
49 check want_at(UP), 0, 'do : want_at UP';
50 check want_at(UP UP), 1, 'do : want_at UP UP';
52 check want_at, 0, 'eval : want_at';
53 check want_at(UP), 1, 'eval : want_at UP';
54 check want_at(UP UP), 1, 'eval : want_at UP UP';