FM / subtest

/usr/share/doc/perl-Test-Simple/t/Legacy/subtest/

/usr/share/doc/perl-Test-Simple/t/Legacy/subtest

Name	Size	Mode	Actions
args.t	620	0644	edit dl rm
bail_out.t	1280	0644	edit dl rm
basic.t	4812	0644	edit dl rm
callback.t	1016	0644	edit dl rm
die.t	535	0644	edit dl rm
do.t	283	0644	edit dl rm
events.t	376	0644	edit dl rm
fork.t	1228	0644	edit dl rm
for_do_t.test	112	0644	edit dl rm
implicit_done.t	479	0644	edit dl rm
line_numbers.t	3858	0644	edit dl rm
plan.t	1377	0644	edit dl rm
predicate.t	4844	0644	edit dl rm
singleton.t	712	0644	edit dl rm
threads.t	430	0644	edit dl rm
todo.t	5462	0644	edit dl rm
wstat.t	369	0644	edit dl rm

Edit: /usr/share/doc/perl-Test-Simple/t/Legacy/subtest/fork.t (1228B)

#!/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;
    }
};

#!/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; } };