7 use VPIT::TestHelpers (
8 threads => [ 'Scope::Upper' => 'Scope::Upper::SU_THREADSAFE()' ],
14 use Scope::Upper qw<unwind UP>;
19 my $tid = threads->tid();
31 my $foo = unwind $tid .. $tid + 2 => UP;
32 fail "$p: not reached";
35 fail "$p: not reached";
40 is_deeply \@res, [ -1, $tid .. $tid + 2, -2 ], "$p: unwinded correctly";
45 my @threads = map spawn(\&up1), 1 .. 30;
48 for my $thr (@threads) {
49 ++$completed if $thr->join;
54 done_testing($completed + 1);