t/42-threads-forced.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 BEGIN { $ENV{PERL_FORCE_TEST_THREADS} = 1 }
   7
   8 use VPIT::TestHelpers threads => [ 'Is::Thread::Safe', undef ];
   9
  10 use Test::More tests => 2;
  11
  12 $_->join for map {
  13  my $id = $_;
  14  spawn sub { pass "in thread $id" };
  15 } 1 .. 2;