Revision dddb2bc9 htest/Test/Ganeti/TestCommon.hs

b/htest/Test/Ganeti/TestCommon.hs
80 80 
             show x ++ "' /= '" ++ show y ++ "'") (x == y)
81 81 
infix 3 ==?
82 82 

  		





  
  83
  
    
-- | Checks for inequality with proper annotation.


  		





  
  84
  
    
(/=?) :: (Show a, Eq a) => a -> a -> Property


  		





  
  85
  
    
(/=?) x y = printTestCase


  		





  
  86
  
    
            ("Expected inequality, but got equality: '" ++


  		





  
  87
  
    
             show x ++ "'.") (x /= y)


  		





  
  88
  
    
infix 3 /=?


  		





  
  89
  
    

  		





  83
  90
  
    
-- | Show a message and fail the test.


  		





  84
  91
  
    
failTest :: String -> Property


  		





  85
  92
  
    
failTest msg = printTestCase msg False


  		












Also available in:
  Unified diff