Importing IPC-MorseSignals-0.10.tar.gz

[perl/modules/IPC-MorseSignals.git] / samples / bench.pl

diff --git a/samples/bench.pl b/samples/bench.pl
new file mode 100755 (executable)
index 0000000..2f7daae
--- /dev/null
+++ b/samples/bench.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use POSIX qw/SIGINT SIGTERM SIGKILL SIGHUP EXIT_FAILURE/;
+
+use lib qw{blib/lib t/lib};
+
+use IPC::MorseSignals::TestSuite qw/init bench cleanup/;
+
+my $diag = sub { print STDERR "@_\n" };
+my @res;
+
+init 100;
+
+bench 4,    1,   $diag, \@res;
+bench 4,    4,   $diag, \@res;
+bench 4,    16,  $diag, \@res;
+bench 4,    64,  $diag, \@res;
+bench 4,    256, $diag, \@res;
+bench 16,   1,   $diag, \@res;
+bench 16,   4,   $diag, \@res;
+bench 16,   16,  $diag, \@res;
+bench 16,   64,  $diag, \@res;
+bench 64,   1,   $diag, \@res;
+bench 64,   4,   $diag, \@res;
+bench 64,   16,  $diag, \@res;
+bench 256,  1,   $diag, \@res;
+bench 256,  4,   $diag, \@res;
+bench 1024, 1,   $diag, \@res;
+
+cleanup;
+
+print STDERR "=== Summary ===\n";
+print STDERR "$_\n" for @res;