]> git.vpit.fr Git - perl/modules/IPC-MorseSignals.git/blob - samples/bench.pl
Put prerequisites in their own separate hash
[perl/modules/IPC-MorseSignals.git] / 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;