Synnefo » snf-ganeti » ganeti-local

    ) where

import Test.QuickCheck

import Data.List (findIndex, intercalate, nub, isPrefixOf)

import Data.Maybe

import Control.Monad

import qualified Ganeti.HTools.Version

import qualified Ganeti.Constants as C

-- * Constants

-- | Maximum memory (1TiB, somewhat random value)

-- * Arbitrary instances

newtype DNSChar = DNSChar { dnsGetChar::Char }

instance Arbitrary DNSChar where

    arbitrary = do

prop_Text_Load_InstanceFail ktn fields =

    length fields /= 9 ==>

    case Text.loadInst nl fields of

    where nl = Data.Map.fromList ktn

prop_Text_Load_Node name tm nm fm td fd tc fo =

-- Cluster tests

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

    (not (Node.offline node) && not (Node.failN1 node) && (count > 0) &&

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

    let fn = Node.buildPeers node Container.empty

        score = Cluster.compCV nl

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

    -- this should be much lower than the default score in CLI.hs

-- | Check that cluster stats are sane

     (Node.availDisk node > 0) && (Node.availMem node > 0)) ==>

    let fn = Node.buildPeers node Container.empty

        nlst = zip [1..] $ replicate count fn::[(Types.Ndx, Node.Node)]