t/41-threads-unsafe.t

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