Procházet zdrojové kódy

* fixed test

git-svn-id: trunk@9241 -
Jonas Maebe před 18 roky
rodič
revize
3c2fc7b226
1 změnil soubory, kde provedl 3 přidání a 1 odebrání
  1. 3 1
      tests/webtbs/tw6767.pp

+ 3 - 1
tests/webtbs/tw6767.pp

@@ -14,5 +14,7 @@ begin
   HaltOnNotReleased := true;
   HaltOnNotReleased := true;
   CheckThread := TCheckConnThread.Create(false);
   CheckThread := TCheckConnThread.Create(false);
   CheckThread.Terminate;
   CheckThread.Terminate;
-  CheckThread.Waitfor;
+  { not really clean, but waitfor is not possible since the thread may }
+  { already have freed itself                                          }
+  sleep(500);
 end.
 end.