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