X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F40-threads.t;fp=t%2F40-threads.t;h=5d34f29c66a8355cd094857628a5bb8f144911d8;hb=6fed7e00bfc9173f7282c4c7467a44c98df44427;hp=0000000000000000000000000000000000000000;hpb=4598e3669eee23f67bac4a1dc541740b1447591b;p=perl%2Fmodules%2FVPIT-TestHelpers.git

diff --git a/t/40-threads.t b/t/40-threads.t
new file mode 100644
index 0000000..5d34f29
--- /dev/null
+++ b/t/40-threads.t
@@ -0,0 +1,15 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+BEGIN { $ENV{PERL_FORCE_TEST_THREADS} = '' }
+
+use VPIT::TestHelpers threads => [ 'Is::Thread::Safe', undef ];
+
+use Test::More tests => 2;
+
+$_->join for map {
+ my $id = $_;
+ spawn sub { pass "in thread $id" };
+} 1 .. 2;