blob: 6e81b515d830e94dfbd76fe7a4c2fdb07ba80982 [file] [log] [blame]
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
]