Browse Source

* fixed test

git-svn-id: trunk@9241 -
Jonas Maebe 18 years ago
parent
commit
3c2fc7b226
1 changed files with 3 additions and 1 deletions
  1. 3 1
      tests/webtbs/tw6767.pp

+ 3 - 1
tests/webtbs/tw6767.pp

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