Croak if the threads feature is enabled after Test::More/Leaner was loaded

[perl/modules/VPIT-TestHelpers.git] / t / 44-threads-too-late.t

diff --git a/t/44-threads-too-late.t b/t/44-threads-too-late.t
new file mode 100644 (file)
index 0000000..5eea92a
--- /dev/null
+++ b/t/44-threads-too-late.t
@@ -0,0 +1,12 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+BEGIN { $ENV{PERL_FORCE_TEST_THREADS} = 1 }
+
+use Test::More tests => 1;
+
+local $@;
+eval 'use VPIT::TestHelpers "threads";';
+like $@, qr/was loaded too soon/, 'cannot use the threads feature after Test::More was loaded';