Synnefo » snf-ganeti » ganeti-local

-- * Test cases

-- | Check that opcode serialization is idempotent.

  case J.readJSON (J.showJSON op) of

    J.Error e -> failTest $ "Cannot deserialise: " ++ e

    J.Ok op' -> op ==? op'

-- | Check that Python and Haskell defined the same opcode list.

  py_stdout <- runPython "from ganeti import opcodes\n\

                         \print '\\n'.join(opcodes.OP_MAPPING.keys())" "" >>=

               checkPythonResult

-- a better way to do this, for example by having a

-- separately-launched Python process (if not running the tests would

-- be skipped).

  let num_opcodes = length OpCodes.allOpIDs * 500

  sample_opcodes <- sample' (vectorOf num_opcodes

                             (arbitrary::Gen OpCodes.OpCode))

        ) $ zip opcodes decoded

testSuite "OpCodes"

            ]