ipc.pl

use strict;
use warnings;

use Test2::IPC;
use Test::More;

for (1 .. 2) {
    Test2::API::run_subtest(foo => sub {
        my $pid = fork();

        Test2::API::run_subtest(bar => sub {
            ok(1);
        }, 1);
        
        exit 0 unless $pid;
        waitpid($pid, 0) if $pid;
    }, 1);
}

done_testing;