%PDF- %GIF98; %PNG;
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
# Test that setting $? doesn't affect subtest success
use strict;
use Test::More;
subtest foo => sub {
plan tests => 1;
$? = 1;
pass('bar');
};
is $?, 1, "exit code keeps on from a subtest";
subtest foo2 => sub {
plan tests => 1;
pass('bar2');
$? = 1;
};
is $?, 1, "exit code keeps on from a subtest";
done_testing(4);