Importing IPC-MorseSignals-0.15.tar.gz

[perl/modules/IPC-MorseSignals.git] / t / 70-speed.t

diff --git a/t/70-speed.t b/t/70-speed.t
index fc6f031e7d43b19bf4d95fb67f4ce8a714b0590f..07dd76750d1b577a61a9aed43b896b8882cf92eb 100644 (file)
--- a/t/70-speed.t
+++ b/t/70-speed.t
@@ -5,19 +5,22 @@ use warnings;
 
 use utf8;
 
-use Test::More tests => 3;
+my $n;
+use Test::More tests => 1 + ($n = 5);
 
 use lib 't/lib';
 use IPC::MorseSignals::TestSuite qw/bench init cleanup/;
 
-my $diag = sub { diag @_ };
+*IPC::MorseSignals::TestSuite::diag = *Test::More::diag;
+
 my @res;
 
-init 12;
+init 2 * $n;
 
-ok(bench(4,  1, $diag, \@res));
-ok(bench(4,  4, $diag, \@res));
-ok(bench(16, 1, $diag, \@res));
+TODO: {
+ local $TODO = 'This is just to give you a measure of which speed you should use';
+ ok(bench(2 ** ($n - $_),  2 ** $_, \@res)) for 0 .. $n;
+}
 
 cleanup;