Revision f8f638fe

b/test/hs/Test/Ganeti/TestCommon.hs
60 60 
  , readTestData
61 61 
  , genSample
62 62 
  , testParser
63 
  , genNonNegative
63 64 
  ) where
64 65 

  		





  65
  66
  
    
import Control.Applicative


  		





  ......




  351
  352
  
    
  case parseOnly parser $ pack fileContent of


  		





  352
  353
  
    
    Left msg -> HUnit.assertFailure $ "Parsing failed: " ++ msg


  		





  353
  354
  
    
    Right obtained -> HUnit.assertEqual fileName expectedContent obtained


  		





  
  355
  
    

  		





  
  356
  
    
-- | Generate an arbitrary non negative integer number


  		





  
  357
  
    
genNonNegative :: Gen Int


  		





  
  358
  
    
genNonNegative =


  		





  
  359
  
    
  fmap fromIntegral (arbitrary::Gen (Test.QuickCheck.NonNegative Int))


  		












Also available in:
  Unified diff