The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 3;
use Data::Dumper;

BEGIN { use_ok('Test::MultiProcess') };

## just test 10 forked processes

my $results1 = run_forked(
    code => sub { return "hi"; },
    forks => 10
);

is($$results1{hi}, 10, "10 forks");

## 20

my $results2 = run_forked(
    code => sub { return "hi"; },
    forks => 20
);

is($$results2{hi}, 20, "20 forks");