Fix permission problem related to Issue 477

[ganeti-local] / test / hs / Test / Ganeti / Luxi.hs

diff --git a/test/hs/Test/Ganeti/Luxi.hs b/test/hs/Test/Ganeti/Luxi.hs
index a206dc0..6eb8c12 100644 (file)
--- a/test/hs/Test/Ganeti/Luxi.hs
+++ b/test/hs/Test/Ganeti/Luxi.hs
@@ -64,6 +64,8 @@ instance Arbitrary Luxi.LuxiOp where
                             genFields <*> arbitrary
       Luxi.ReqQueryGroups -> Luxi.QueryGroups <$> arbitrary <*>
                              arbitrary <*> arbitrary
+      Luxi.ReqQueryNetworks -> Luxi.QueryNetworks <$> arbitrary <*>
+                             arbitrary <*> arbitrary
       Luxi.ReqQueryInstances -> Luxi.QueryInstances <$> listOf genFQDN <*>
                                 genFields <*> arbitrary
       Luxi.ReqQueryJobs -> Luxi.QueryJobs <$> arbitrary <*> genFields
@@ -124,7 +126,7 @@ prop_ClientServer dnschars = monadicIO $ do
   -- we need to create the server first, otherwise (if we do it in the
   -- forked thread) the client could try to connect to it before it's
   -- ready
-  server <- run $ Luxi.getServer fpath
+  server <- run $ Luxi.getServer False fpath
   -- fork the server responder
   _ <- run . forkIO $
     bracket