t/70-speed.t

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