From a23643eef40f75f8d8feb311d6028c373dfe88e0 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
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 <iustin@google.com>
Reviewed-by: Agata Murawska <agatamurawska@google.com>
---
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 72a2d2760..a289fa9b1 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
--
GitLab