Revision 64946775

b/htools/Ganeti/HTools/QC.hs
132 132 
                                       , Types.iSpecNicCount   = 1
133 133 
                                       , Types.iSpecSpindleUse = 1
134 134 
                                       }
135 
  , Types.iPolicyDiskTemplates = [Types.DTDrbd8, Types.DTPlain]
135 
  , Types.iPolicyDiskTemplates = [minBound..maxBound]
136 136 
  , Types.iPolicyVcpuRatio = maxVcpuRatio -- somewhat random value, high
137 137 
                                          -- enough to not impact us
138 138 
  , Types.iPolicySpindleRatio = maxSpindleRatio
......
315 315 
  pn <- arbitrary
316 316 
  sn <- arbitrary
317 317 
  vcpus <- choose (0, lim_cpu)
318 
  return $ Instance.create name mem dsk vcpus run_st [] True pn sn
319 
         Types.DTDrbd8 1
318 
  dt <- arbitrary
319 
  return $ Instance.create name mem dsk vcpus run_st [] True pn sn dt 1
320 320 

  		





  321
  321
  
    
-- | Generates an instance smaller than a node.


  		





  322
  322
  
    
genInstanceSmallerThanNode :: Node.Node -> Gen Instance.Instance


  		












Also available in:
  Unified diff