Revision 50c302ca htest/Test/Ganeti/HTools/Instance.hs

b/htest/Test/Ganeti/HTools/Instance.hs
29 29 
module Test.Ganeti.HTools.Instance
30 30 
  ( testHTools_Instance
31 31 
  , genInstanceSmallerThanNode
32 
  , genInstanceMaybeBiggerThanNode
32 33 
  , genInstanceSmallerThan
33 34 
  , Instance.Instance(..)
34 35 
  ) where
......
66 67 
                         (Node.availDisk node `div` 2)
67 68 
                         (Node.availCpu node `div` 2)
68 69 

  		





  
  70
  
    
-- | Generates an instance possibly bigger than a node.


  		





  
  71
  
    
genInstanceMaybeBiggerThanNode :: Node.Node -> Gen Instance.Instance


  		





  
  72
  
    
genInstanceMaybeBiggerThanNode node =


  		





  
  73
  
    
  genInstanceSmallerThan (Node.availMem  node + Types.unitMem * 2)


  		





  
  74
  
    
                         (Node.availDisk node + Types.unitDsk * 3)


  		





  
  75
  
    
                         (Node.availCpu  node + Types.unitCpu * 4)


  		





  
  76
  
    

  		





  69
  77
  
    
-- let's generate a random instance


  		





  70
  78
  
    
instance Arbitrary Instance.Instance where


  		





  71
  79
  
    
  arbitrary = genInstanceSmallerThan maxMem maxDsk maxCpu


  		












Also available in:
  Unified diff