samples/bench.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use POSIX qw/SIGINT SIGTERM SIGKILL SIGHUP EXIT_FAILURE/;
   7
   8 use lib qw{blib/lib t/lib};
   9
  10 use IPC::MorseSignals::TestSuite qw/init bench cleanup/;
  11
  12 my $diag = sub { print STDERR "@_\n" };
  13 my @res;
  14
  15 init 100;
  16
  17 bench 4,    1,   $diag, \@res;
  18 bench 4,    4,   $diag, \@res;
  19 bench 4,    16,  $diag, \@res;
  20 bench 4,    64,  $diag, \@res;
  21 bench 4,    256, $diag, \@res;
  22 bench 16,   1,   $diag, \@res;
  23 bench 16,   4,   $diag, \@res;
  24 bench 16,   16,  $diag, \@res;
  25 bench 16,   64,  $diag, \@res;
  26 bench 64,   1,   $diag, \@res;
  27 bench 64,   4,   $diag, \@res;
  28 bench 64,   16,  $diag, \@res;
  29 bench 256,  1,   $diag, \@res;
  30 bench 256,  4,   $diag, \@res;
  31 bench 1024, 1,   $diag, \@res;
  32
  33 cleanup;
  34
  35 print STDERR "=== Summary ===\n";
  36 print STDERR "$_\n" for @res;