xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy_And_Test2/thread_init_warning.t (revision f3efcd0145415b7d44d9da97e0ad5c21b186ac61) 
1use strict;
2use warnings;
3
4use Test2::Util qw/CAN_THREAD/;
5BEGIN {
6    unless(CAN_THREAD) {
7        require Test::More;
8        Test::More->import(skip_all => "threads are not supported");
9    }
10}
11
12use threads;
13
14my @warns;
15{
16    local $SIG{__WARN__} = sub { push @warns => @_ };
17    require Test::More;
18}
19
20Test::More::is_deeply(\@warns, [], "No init warning");
21
22Test::More::done_testing();
23