X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FIPC-MorseSignals.git;a=blobdiff_plain;f=t%2F70-speed.t;h=07dd76750d1b577a61a9aed43b896b8882cf92eb;hp=fc6f031e7d43b19bf4d95fb67f4ce8a714b0590f;hb=9370c8d2ab07f434272dbbddb92bdd5d8d1fe3af;hpb=db7266fa5be4347aac1d32a994d6529c7b5a4afb

diff --git a/t/70-speed.t b/t/70-speed.t
index fc6f031..07dd767 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/;
 
-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;