Server : ApacheSystem : Linux host.digitalbabaji.in 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64 User : addictionfreeind ( 1003) PHP Version : 7.2.34 Disable Function : exec,passthru,shell_exec,system Directory : /usr/share/doc/perl-Test-Simple/t/Legacy/subtest/ |
Upload File : |
#!/usr/bin/perl -w
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;
use Test::More;
subtest 'simple test with threads on' => sub {
is( 1+1, 2, "simple test" );
is( "a", "a", "another simple test" );
};
pass("Parent retains sharedness");
done_testing(2);