The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# $Id: 10simple.t,v 1.1 2005/07/27 15:09:06 pmh Exp $

# This test is really just checking that the right number of tests run

use Test::More tests => 10;
use Test::SerialFork;
use strict;

ok(1,'before fork');

my $label=serial_fork 'abc','def';

like($label,qr/\A(?:abc|def)\z/,'expected label');