t/13-speed.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 3;
   7
   8 use lib 't/lib';
   9 use IPCMTest qw/speed init cleanup/;
  10
  11 my $diag = sub { diag @_ };
  12 my @res;
  13
  14 init;
  15
  16 ok(speed(4,  1, $diag, \@res));
  17 ok(speed(4,  4, $diag, \@res));
  18 ok(speed(16, 1, $diag, \@res));
  19
  20 cleanup;
  21
  22 diag '=== Summary ===';
  23 diag $_ for sort {
  24  my ($l1, $n1) = $a =~ /(\d+)\D+(\d+)/;
  25  my ($l2, $n2) = $b =~ /(\d+)\D+(\d+)/;
  26  $l1 <=> $l2 || $n1 <=> $n2
  27 } @res;