#!/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);
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| args.t | File | 328 B | 0644 |
|
| basic.t | File | 5.19 KB | 0644 |
|
| die.t | File | 531 B | 0644 |
|
| do.t | File | 274 B | 0644 |
|
| exceptions.t | File | 1.81 KB | 0644 |
|
| for_do_t.test | File | 112 B | 0644 |
|
| fork.t | File | 1.22 KB | 0644 |
|
| implicit_done.t | File | 479 B | 0644 |
|
| line_numbers.t | File | 3.59 KB | 0644 |
|
| plan.t | File | 1.34 KB | 0644 |
|
| predicate.t | File | 4.38 KB | 0644 |
|
| singleton.t | File | 712 B | 0644 |
|
| todo.t | File | 5.27 KB | 0644 |
|
| wstat.t | File | 369 B | 0644 |
|