X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-speed.t;h=373bda2729fb4c59aeefcf5c904ef26debecb0d8;hb=refs%2Ftags%2Fv0.03;hp=2593fd4f44341ad2a92c6a93b8edd27dbea46d5b;hpb=762a8a02ffc76d62c023619d0dffe451498ae2b0;p=perl%2Fmodules%2FIPC-MorseSignals.git

diff --git a/t/11-speed.t b/t/11-speed.t
index 2593fd4..373bda2 100644
--- a/t/11-speed.t
+++ b/t/11-speed.t
@@ -14,7 +14,7 @@ sub tryspeed {
  my $ok = 0;
  my $msg = join '', map { chr int rand 256 } 1 .. $l;
  my $desc;
- while (($speed >= 1) && ($ok < $n)) {
+ while (($speed > 1) && ($ok < $n)) {
   $desc = "$n sends of $l bytes at $speed bits/s";
   $speed /= 2;
   $ok = 0;
@@ -36,7 +36,7 @@ TRY:
    }
    close $wtr or die "$desc: close() failed : $!";
    eval {
-    local $SIG{ALRM} = sub { die 'alarm' };
+    local $SIG{ALRM} = sub { die 'timeout' };
     my $a = (int(100 * (3 * $l) / $speed) || 1);
     $a = 10 if $a > 10;
     alarm $a;