--- /dev/null
+#!perl -T
+
+use strict;
+use warnings;
+
+BEGIN { $ENV{PERL_FORCE_TEST_THREADS} = 1 }
+
+use VPIT::TestHelpers threads => [ 'Is::Thread::Safe', undef ];
+
+use Test::More tests => 2;
+
+$_->join for map {
+ my $id = $_;
+ spawn sub { pass "in thread $id" };
+} 1 .. 2;