Revision a309a3b4

b/htest/Test/Ganeti/TestCommon.hs
78 78 
(==?) :: (Show a, Eq a) => a -> a -> Property
79 79 
(==?) x y = printTestCase
80 80 
            ("Expected equality, but got mismatch\nexpected: " ++
81 
             show x ++ "\n but got: " ++ show y) (x == y)
81 
             show y ++ "\n but got: " ++ show x) (x == y)
82 82 
infix 3 ==?
83 83 

  		





  84
  84
  
    
-- | Checks for inequality with proper annotation. The first argument


  		












Also available in:
  Unified diff