Admin

name	type	size	perms	modified	actions
[parent directory]
args.t	file	620 B	0755	2024-10-29 00:00:00	edit
bail_out.t	file	1,280 B	0755	2024-10-29 00:00:00	edit
basic.t	file	4,812 B	0755	2024-10-29 00:00:00	edit
callback.t	file	1,016 B	0755	2024-10-29 00:00:00	edit
die.t	file	535 B	0755	2024-10-29 00:00:00	edit
do.t	file	283 B	0755	2024-10-29 00:00:00	edit
events.t	file	392 B	0755	2024-10-29 00:00:00	edit
for_do_t.test	file	112 B	0644	2024-04-25 14:05:01	edit
fork.t	file	1,228 B	0755	2024-10-29 00:00:00	edit
implicit_done.t	file	479 B	0755	2024-10-29 00:00:00	edit
line_numbers.t	file	3,858 B	0755	2024-10-29 00:00:00	edit
plan.t	file	1,377 B	0755	2024-10-29 00:00:00	edit
predicate.t	file	4,844 B	0755	2024-10-29 00:00:00	edit
singleton.t	file	712 B	0755	2024-10-29 00:00:00	edit
threads.t	file	430 B	0755	2024-10-29 00:00:00	edit
todo.t	file	5,462 B	0755	2024-10-29 00:00:00	edit
wstat.t	file	369 B	0755	2024-10-29 00:00:00	edit

editing: fork.t

#!/usr/bin/perl -w
use strict;
use warnings;
# HARNESS-NO-STREAM
# HARNESS-NO-PRELOAD

use Test2::Util qw/CAN_FORK/;
BEGIN {
    unless(CAN_FORK) {
        require Test::More;
        Test::More->import(skip_all => "fork is not supported");
    }
}

use IO::Pipe;
use Test::Builder;
use Test::More;

plan 'skip_all' => "This test cannot be run with the current formatter"
    unless Test::Builder->new->{Stack}->top->format->isa('Test::Builder::Formatter');

plan 'tests' => 1;

subtest 'fork within subtest' => sub {
    plan tests => 2;

my $pipe = IO::Pipe->new;
    my $pid = fork;
    defined $pid or plan skip_all => "Fork not working";

if ($pid) {
        $pipe->reader;
        my $child_output = do { local $/ ; <$pipe> };
        waitpid $pid, 0;

is $?, 0, 'child exit status';
        like $child_output, qr/^[\s#]+Child Done\s*\z/, 'child output';
    } 
    else {
        $pipe->writer;

# Force all T::B output into the pipe, for the parent
        # builder as well as the current subtest builder.
        my $tb = Test::Builder->new;
        $tb->output($pipe);
        $tb->failure_output($pipe);
        $tb->todo_output($pipe);

diag 'Child Done';
        exit 0;
    }
};

cancel