6 use Test::More tests => 4 + 10;
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
30 for my $action (@methods) {
35 my $line = __LINE__-2;
36 like $@, qr/^Context has expired at \Q$0\E line \Q$line\E/,
37 "$action\->up croaks";