t/43-threads-unsafe-forced.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 BEGIN { $ENV{PERL_FORCE_TEST_THREADS} = 1 }
   7
   8 use VPIT::TestHelpers threads => [ 'Not::Thread::Safe', 0 ];
   9
  10 use Test::More tests => 1;
  11
  12 fail 'force should not overrule thread-unsafe';
  13
  14 my $thread = spawn sub { };
  15 $thread->join;