From a23643eef40f75f8d8feb311d6028c373dfe88e0 Mon Sep 17 00:00:00 2001 From: Iustin Pop Date: Sun, 19 Aug 2012 23:16:32 +0200 Subject: [PATCH] Fix bug in the Luxi client-server test We didn't close the server correctly, so for test sizes bigger than the max-open-files ulimit, the tests were failing in accept(). Signed-off-by: Iustin Pop Reviewed-by: Agata Murawska --- htools/Ganeti/HTools/QC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/htools/Ganeti/HTools/QC.hs b/htools/Ganeti/HTools/QC.hs index 72a2d27..a289fa9 100644 --- a/htools/Ganeti/HTools/QC.hs +++ b/htools/Ganeti/HTools/QC.hs @@ -1931,7 +1931,7 @@ prop_Luxi_ClientServer dnschars = monadicIO $ do _ <- run . forkIO $ bracket (Luxi.acceptClient server) - (\c -> Luxi.closeClient c >> removeFile fpath) + (\c -> Luxi.closeClient c >> Luxi.closeServer fpath server) luxiServerPong replies <- run $ bracket -- 1.7.10.4