diff --git a/test/hs/Test/Ganeti/Runtime.hs b/test/hs/Test/Ganeti/Runtime.hs index b15aa36..7aa75ca 100644 --- a/test/hs/Test/Ganeti/Runtime.hs +++ b/test/hs/Test/Ganeti/Runtime.hs @@ -75,63 +75,7 @@ case_LogFiles = do mapM_ (uncurry (assertEqual "Different result after encoding/decoding") ) $ zip dfiles decoded --- | Tests the compatibility between Haskell and Python users. -case_UsersGroups :: Assertion -case_UsersGroups = do - -- note: we don't have here a programatic way to list all users, so - -- we harcode some parts of the two (hs/py) lists - let daemons = [minBound..maxBound]::[GanetiDaemon] - users = map daemonUser daemons - groups = map daemonGroup $ - map DaemonGroup daemons ++ map ExtraGroup [minBound..maxBound] - py_stdout <- - runPython "from ganeti import constants\n\ - \from ganeti import serializer\n\ - \import sys\n\ - \users = [constants.MASTERD_USER,\n\ - \ constants.NODED_USER,\n\ - \ constants.RAPI_USER,\n\ - \ constants.CONFD_USER,\n\ - \ constants.WCONFD_USER,\n\ - \ constants.KVMD_USER,\n\ - \ constants.LUXID_USER,\n\ - \ constants.METAD_USER,\n\ - \ constants.MOND_USER,\n\ - \ ]\n\ - \groups = [constants.MASTERD_GROUP,\n\ - \ constants.NODED_GROUP,\n\ - \ constants.RAPI_GROUP,\n\ - \ constants.CONFD_GROUP,\n\ - \ constants.WCONFD_GROUP,\n\ - \ constants.KVMD_GROUP,\n\ - \ constants.LUXID_GROUP,\n\ - \ constants.METAD_GROUP,\n\ - \ constants.MOND_GROUP,\n\ - \ constants.DAEMONS_GROUP,\n\ - \ constants.ADMIN_GROUP,\n\ - \ ]\n\ - \encoded = (users, groups)\n\ - \print serializer.Dump(encoded)" "" - >>= checkPythonResult - let deserialised = J.decode py_stdout::J.Result ([String], [String]) - (py_users, py_groups) <- - case deserialised of - J.Ok ops -> return ops - J.Error msg -> - assertFailure ("Unable to decode users/groups: " ++ msg) - -- this already raised an expection, but we need it for proper - -- types - >> fail "Unable to decode users/groups" - assertEqual "Mismatch in number of returned users" - (length py_users) (length users) - assertEqual "Mismatch in number of returned users" - (length py_groups) (length groups) - mapM_ (uncurry (assertEqual "Different result for users") - ) $ zip users py_users - mapM_ (uncurry (assertEqual "Different result for groups") - ) $ zip groups py_groups testSuite "Runtime" [ 'case_LogFiles - , 'case_UsersGroups ]