Synnefo » snf-ganeti

-- | Locate a key in the map (must exist).

find :: Key -> Container a -> a

-- | Add or update one element to the map.

add :: Key -> a -> Container a -> Container a

    let run_st = Instance.running inst

        run_tx = Instance.runSt inst

    in

prop_Instance_runStatus_False inst =

    let run_st = Instance.running inst

        run_tx = Instance.runSt inst

    in

testInstance =

    [ run prop_Instance_setIdx

               else sdx

        ndx = [(pnode, pdx), (rsnode, rsdx)]

        inst = Text.loadInst ndx

               Maybe (String, Instance.Instance)

        _types = ( name::String, mem::Int, dsk::Int

                 , vcpus::Int, status::String

-- | Check that the cluster score is close to zero for a homogeneous cluster

prop_Score_Zero node count =

     (Node.tDsk node > 0) && (Node.tMem node > 0)) ==>

    let fn = Node.buildPeers node Container.empty

        nl = Container.fromAssocList nlst

        score = Cluster.compCV nl

    -- we can't say == 0 here as the floating point errors accumulate;

          sbytes <- withTimeout queryTimeout

                    "sending luxi message" $

                    S.send (socket s) obuf

    in _send (buf ++ [eOM])

-- | Waits for a message over a luxi transport.

main :: IO ()

main = do

  errs <- newIORef 0

  runTests "PeerMap" options $ wrap testPeerMap

  runTests "Container" options $ wrap testContainer

  runTests "Instance" options $ wrap testInstance

  runTests "Text" options $ wrap testText

  runTests "Cluster" options $ wrap testCluster

  terr <- readIORef errs

   then do

     hPutStrLn stderr $ "A total of " ++ show terr ++ " tests failed."

     exitWith $ ExitFailure 1