Synnefo » snf-ganeti » ganeti-local

import Ganeti.Objects as Objects

import Ganeti.JSON

-- * Arbitrary instances

$(genArbitrary ''Hypervisor)

-- properties, we only generate disks with no children (FIXME), as

-- generating recursive datastructures is a bit more work.

instance Arbitrary Disk where

                   <*> arbitrary <*> arbitrary

-- FIXME: we should generate proper values, >=0, etc., but this is

      <$> getFQDN <*> getFQDN <*> getFQDN -- OS name, but...

      <*> arbitrary

      -- FIXME: add non-empty hvparams when they're a proper type

      -- ... and for OSParams

      <*> arbitrary <*> arbitrary <*> arbitrary

      -- ts

      <*> arbitrary <*> arbitrary

-- validation rules.

instance Arbitrary NodeGroup where

  arbitrary = NodeGroup <$> getFQDN <*> pure [] <*> arbitrary <*> arbitrary

                        -- ts

                        <*> arbitrary <*> arbitrary

                        -- uuid

                                      nodeName = nodeName n ++ show idx })

               nodes [(1::Int)..]

      contnodes = Container . Map.fromList $ map (\n -> (nodeName n, n)) nodes'

  grp <- arbitrary

  let contgroups = Container $ Map.singleton guuid grp

  serial <- arbitrary