6 use Test::More tests => 4 + 9;
10 my $fail_rx = qr/^Context has expired at \Q$0\E line [0-9]+/;
15 $sc = Scope::Context->new;
16 ok $sc->is_valid, 'freshly created context is valid';
17 ok $sc->up->is_valid, 'up context is valid as well';
19 ok $sc->is_valid, 'also valid in a subblock';
22 ok !$sc->is_valid, 'context has expired';
26 reap localize localize_elem localize_delete unwind uplevel
28 for my $action (@methods) {
33 my $line = __LINE__-2;
34 like $@, qr/^Context has expired at \Q$0\E line \Q$line\E/,
35 "$action\->up croaks";