ext/XS-APItest/t/keyword_plugin_threads.t

   1 #!perl
   2 use strict;
   3 use warnings;
   4
   5 require '../../t/test.pl';
   6
   7 use Config;
   8 if (!$Config{useithreads}) {
   9     skip_all("keyword_plugin thread test requires threads");
  10 }
  11
  12 plan(1);
  13
  14 fresh_perl_is( <<'----', <<'====', {}, "loading XS::APItest in threads works");
  15 use strict;
  16 use warnings;
  17
  18 use threads;
  19
  20 require '../../t/test.pl';
  21 watchdog(5);
  22
  23 for my $t (1 .. 3) {
  24     threads->create(sub {
  25         require XS::APItest;
  26     })->join;
  27 }
  28
  29 print "all is well\n";
  30 ----
  31 all is well
  32 ====