use strict;
use warnings;
+use Scope::Upper qw<uplevel UP>;
+
use lib 't/lib';
-use Scope::Upper::TestThreads;
+use VPIT::TestHelpers (
+ threads => [ 'Scope::Upper' => Scope::Upper::SU_THREADSAFE ],
+ 'usleep',
+);
use Test::Leaner;
-use Scope::Upper qw<uplevel UP>;
-
sub depth {
my $depth = 0;
while (1) {