Revision b5334d80 test/hs/Test/Ganeti/TestCommon.hs

b/test/hs/Test/Ganeti/TestCommon.hs
62 62 
  , readTestData
63 63 
  , genSample
64 64 
  , testParser
65 
  , genPropParser
65 66 
  , genNonNegative
66 67 
  ) where
67 68 

  		





  ......




  377
  378
  
    
    Left msg -> HUnit.assertFailure $ "Parsing failed: " ++ msg


  		





  378
  379
  
    
    Right obtained -> HUnit.assertEqual fileName expectedContent obtained


  		





  379
  380
  
    

  		





  
  381
  
    
-- | Generate a property test for parsers.


  		





  
  382
  
    
genPropParser :: (Show a, Eq a) => Parser a -> String -> a -> Property


  		





  
  383
  
    
genPropParser parser s expected =


  		





  
  384
  
    
  case parseOnly parser $ pack s of


  		





  
  385
  
    
    Left msg -> failTest $ "Parsing failed: " ++ msg


  		





  
  386
  
    
    Right obtained -> expected ==? obtained


  		





  
  387
  
    

  		





  380
  388
  
    
-- | Generate an arbitrary non negative integer number


  		





  381
  389
  
    
genNonNegative :: Gen Int


  		





  382
  390
  
    
genNonNegative =


  		












Also available in:
  Unified diff