浏览代码

* fixed test

git-svn-id: trunk@9241 -
Jonas Maebe 18 年之前
父节点
当前提交
3c2fc7b226
共有 1 个文件被更改,包括 3 次插入1 次删除
  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.