Revision 22ff02a7 test/hs/Test/Ganeti/Objects.hs

b/test/hs/Test/Ganeti/Objects.hs
174 174 
  gateway6 <- genMaybe genIp6Addr
175 175 
  res <- liftM Just (genBitString $ netmask2NumHosts netmask)
176 176 
  ext_res <- liftM Just (genBitString $ netmask2NumHosts netmask)
177 
  ctime <- arbitrary
178 
  mtime <- arbitrary
177 179 
  let n = Network name mac_prefix net net6 gateway
178 
          gateway6 res ext_res 0 Set.empty
180 
          gateway6 res ext_res ctime mtime 0 Set.empty
179 181 
  return n
180 182 

  		





  181
  183
  
    
-- | Generate an arbitrary string consisting of '0' and '1' of the given length.


  		












Also available in:
  Unified diff