Synnefo » snf-ganeti » ganeti-local

module Test.Ganeti.Objects

  ( testObjects

  , Node(..)

  , genEmptyCluster

  ) where

-- * Arbitrary instances

$(genArbitrary ''PartialNDParams)

instance Arbitrary Node where

  , DiskTemplate(..)

  , InstanceStatus(..)

  , NonEmpty(..)

  ) where

import Data.List (sort)

$(genArbitrary ''CVErrorCode)

instance (Arbitrary a) => Arbitrary (Types.NonEmpty a) where

  arbitrary = do

    QuickCheck.NonEmpty lst <- arbitrary

      all_hs_codes = sort $ map Types.cVErrorCodeToRaw [minBound..maxBound]

  assertEqual "for CVErrorCode equivalence" all_py_codes all_hs_codes

testSuite "Types"

  [ 'prop_AllocPolicy_serialisation

  , 'prop_DiskTemplate_serialisation

  , 'prop_DdmSimple_serialisation

  , 'prop_CVErrorCode_serialisation

  , 'case_CVErrorCode_pyequiv

  ]

import Ganeti.Errors

import Ganeti.JSON

import Ganeti.Objects

-- | Type alias for the link and ip map.

type LinkIpMap = M.Map String (M.Map String String)

  , FilledBeParams(..)

  , fillBeParams

  , allBeParamFields

  , AdminState(..)

  , adminStateFromRaw

  , Instance(..)

  , defaultField [| DiskRdWr |] $ simpleField "mode" [t| DiskMode |]

  ])

-- * Instance definitions

$(declareSADT "AdminState"

import qualified Ganeti.Constants as C

import Ganeti.Objects

import Ganeti.THH

import Ganeti.Compat

-- * Base RPC functionality and types

  , DdmSimple(..)

  , CVErrorCode(..)

  , cVErrorCodeToRaw

  ) where

import qualified Text.JSON as JSON

     , ("DdmSimpleRemove", 'C.ddmRemove)

     ])

$(THH.makeJSONInstance ''DdmSimple)