ipc.pl

use strict;
use warnings;

use Test2::IPC;

use Parallel::ForkManager;
use Test2::API qw( context run_subtest test2_stack );
use Test::More;

my $pfm = Parallel::ForkManager->new(2);

for my $class (qw( Foo Bar )) {
    run_subtest(
        $class,
        sub {
            _run_class($class);
        }
    );
}

$pfm->wait_all_children;

test2_stack()->top->cull;

done_testing();

sub _run_class {
    my $class = shift;

    for my $instance (qw( i1 i2 )) {
        next if $pfm->start;

        run_subtest(
            "$class -  $instance",
            sub { ok( 1, "$class - $instance ok" ) }
        );

        $pfm->finish(0);
    }
}