1 files changed, 22 insertions, 0 deletions
diff --git a/cpan/Test-Simple/t/Legacy_And_Test2/thread_init_warning.t b/cpan/Test-Simple/t/Legacy_And_Test2/thread_init_warning.t
new file mode 100644
index 0000000000..23254c618f
--- /dev/null
+++ b/cpan/Test-Simple/t/Legacy_And_Test2/thread_init_warning.t
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+use Test2::Util qw/CAN_THREAD/;
+BEGIN {
+    unless(CAN_THREAD) {
+        require Test::More;
+        Test::More->import(skip_all => "threads are not supported");
+    }
+}
+
+use threads;
+
+my @warns;
+{
+    local $SIG{__WARN__} = sub { push @warns => @_ };
+    require Test::More;
+}
+
+Test::More::is_deeply(\@warns, [], "No init warning");
+
+Test::More::done_testing();