Revision 5b11f8db htest/Test/Ganeti/HTools/Node.hs

b/htest/Test/Ganeti/HTools/Node.hs
85 85 

  		





  86
  86
  
    
-- | Helper function to generate a sane node.


  		





  87
  87
  
    
genOnlineNode :: Gen Node.Node


  		





  88
  
  
    
genOnlineNode = do


  		





  
  88
  
    
genOnlineNode =


  		





  89
  89
  
    
  arbitrary `suchThat` (\n -> not (Node.offline n) &&


  		





  90
  90
  
    
                              not (Node.failN1 n) &&


  		





  91
  91
  
    
                              Node.availDisk n > 0 &&


  		












Also available in:
  Unified diff