9 use Test::More tests => 1 + ($n = 5);
12 use IPC::MorseSignals::TestSuite qw<bench init cleanup>;
14 *IPC::MorseSignals::TestSuite::diag = *Test::More::diag;
21 local $TODO = 'This is just to give you a measure of which speed you should use';
22 ok(bench(2 ** ($n - $_), 2 ** $_, \@res)) for 0 .. $n;
27 diag '=== Summary ===';
29 my ($l1, $n1) = $a =~ /(\d+)\D+(\d+)/;
30 my ($l2, $n2) = $b =~ /(\d+)\D+(\d+)/;
31 $l1 <=> $l2 || $n1 <=> $n2