Revision f1f6f117

b/test/hs/Test/Ganeti/Utils.hs
207 207 
                                                    zip numbers names)
208 208 
  ]
209 209 

  		





  210
  
  
    
-- | Tests 'rstripSpace'.


  		





  
  210
  
    
-- | Tests 'rStripSpace'.


  		





  211
  211
  
    
prop_rStripSpace :: NonEmptyList Char -> Property


  		





  212
  212
  
    
prop_rStripSpace (NonEmpty str) =


  		





  213
  213
  
    
  forAll (resize 50 $ listOf1 (arbitrary `suchThat` isSpace)) $ \whitespace ->


  		












Also available in:
  Unified diff