X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F70-speed.t;h=9eba2d9b822207760ded59d6cb962a4b55630d82;hb=cbd0d5635c26b4203e32f543f4a3b323a6875b41;hp=fc6f031e7d43b19bf4d95fb67f4ce8a714b0590f;hpb=ddcc7c395d570f0ea20a8e9a242fcbfcc0e49522;p=perl%2Fmodules%2FIPC-MorseSignals.git

diff --git a/t/70-speed.t b/t/70-speed.t
index fc6f031..9eba2d9 100644
--- 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/;
+use IPC::MorseSignals::TestSuite qw<bench init cleanup>;
+
+*IPC::MorseSignals::TestSuite::diag = *Test::More::diag;
 
-my $diag = sub { 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;