Revision b43064d0 test/hs/Test/Ganeti/Objects.hs

b/test/hs/Test/Ganeti/Objects.hs
179 179
  size <- genMaybe genJSValue
180 180
  res <- liftM Just (genBitString $ netmask2NumHosts netmask)
181 181
  ext_res <- liftM Just (genBitString $ netmask2NumHosts netmask)
182
  uuid <- arbitrary
182 183
  let n = Network name network_type mac_prefix net_family net net6 gateway
183
          gateway6 size res ext_res 0 Set.empty
184
          gateway6 size res ext_res uuid 0 Set.empty
184 185
  return n
185 186

  
186 187
-- | Generates an arbitrary network type.
......
215 216
                                show (map fst nodes'))
216 217
                    else GenericContainer nodemap
217 218
      continsts = GenericContainer Map.empty
219
      networks = GenericContainer Map.empty
218 220
  grp <- arbitrary
219 221
  let contgroups = GenericContainer $ Map.singleton guuid grp
220 222
  serial <- arbitrary
221 223
  cluster <- resize 8 arbitrary
222
  let c = ConfigData version cluster contnodes contgroups continsts serial
224
  let c = ConfigData version cluster contnodes contgroups continsts networks
225
            serial
223 226
  return c
224 227

  
225 228
-- * Test properties

Also available in: Unified diff