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 sub diag { print STDERR "@_\n" };
  13 *IPC::MorseSignals::TestSuite::diag = *main::diag;
  14 my @res;
  15
  16 init 100;
  17
  18 bench 4,    1,   \@res;
  19 bench 4,    4,   \@res;
  20 bench 4,    16,  \@res;
  21 bench 4,    64,  \@res;
  22 bench 4,    256, \@res;
  23 bench 16,   1,   \@res;
  24 bench 16,   4,   \@res;
  25 bench 16,   16,  \@res;
  26 bench 16,   64,  \@res;
  27 bench 64,   1,   \@res;
  28 bench 64,   4,   \@res;
  29 bench 64,   16,  \@res;
  30 bench 256,  1,   \@res;
  31 bench 256,  4,   \@res;
  32 bench 1024, 1,   \@res;
  33
  34 cleanup;
  35
  36 diag "\n=== Summary ===";
  37 diag $_ for @res;