Revision 2724417c test/hs/Test/Ganeti/HTools/Instance.hs

b/test/hs/Test/Ganeti/HTools/Instance.hs
62 62 
  sn <- arbitrary
63 63 
  vcpus <- choose (0, lim_cpu)
64 64 
  dt <- arbitrary
65 
  return $ Instance.create name mem dsk [dsk] vcpus run_st [] True pn sn dt 1 []
65 
  spindles <- arbitrary
66 
  let disk = Instance.Disk dsk spindles
67 
  return $ Instance.create
68 
    name mem dsk [disk] vcpus run_st [] True pn sn dt 1 []
66 69 

  		





  67
  70
  
    
-- | Generates an instance smaller than a node.


  		





  68
  71
  
    
genInstanceSmallerThanNode :: Node.Node -> Gen Instance.Instance


  		












Also available in:
  Unified diff