6 use Test::More tests => 3;
9 use IPCMTest qw/speed init cleanup/;
11 my $diag = sub { diag @_ };
16 ok(speed(4, 1, $diag, \@res));
17 ok(speed(4, 4, $diag, \@res));
18 ok(speed(16, 1, $diag, \@res));
22 diag '=== Summary ===';
24 my ($l1, $n1) = $a =~ /(\d+)\D+(\d+)/;
25 my ($l2, $n2) = $b =~ /(\d+)\D+(\d+)/;
26 $l1 <=> $l2 || $n1 <=> $n2