X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F09-load-threads.t;h=cd8cfbcee1c3c9527476926fff8f75462a008d66;hb=a0ffa7bdf4e036ec6cb759bb357d0778c419dc7e;hp=65a5d2d09a7d728449a44d80f3c222bdb5139b4f;hpb=42520e8309b17a2a74097f202e5806eb5315d26a;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/09-load-threads.t b/t/09-load-threads.t
index 65a5d2d..cd8cfbc 100644
--- a/t/09-load-threads.t
+++ b/t/09-load-threads.t
@@ -178,14 +178,12 @@ sub sync_master {
 
  LOCK: {
   lock $locks_up[$id];
-  for (1 .. 100) {
-   my $timeout = time() + 2;
-   until ($locks_up[$id] == $peers) {
-    if (cond_timedwait $locks_up[$id], $timeout) {
-     last LOCK;
-    } else {
-     return 0;
-    }
+  my $timeout = time() + 10;
+  until ($locks_up[$id] == $peers) {
+   if (cond_timedwait $locks_up[$id], $timeout) {
+    last LOCK;
+   } else {
+    return 0;
    }
   }
  }
@@ -423,6 +421,4 @@ is_loaded 0, 'main body, after outliving clone';
 do_load;
 is_loaded 1, 'main body, loaded at end';
 
-# perl 5.13.4 comes a Test::More more recent than 0.88, so it must have
-# done_testing() and Test::Leaner will not replace it by a croaking stub.
 done_testing();