Merge pull request #18 from MichaelXavier/equality-helper

Add === and /== combinators

Author: paf31

README.md

@@ -79,8 +79,12 @@
 
 ### Values
 
+    (/==) :: forall a b. (Eq a, Show a) => a -> a -> Result
+
     (<?>) :: Boolean -> String -> Result
 
+    (===) :: forall a b. (Eq a, Show a) => a -> a -> Result
+
     quickCheck :: forall prop. (Testable prop) => prop -> QC Unit
 
     quickCheck' :: forall prop. (Testable prop) => Number -> prop -> QC Unit

src/Test/QuickCheck.purs

@@ -167,3 +167,15 @@ quickCheck' n prop = do
 
 quickCheck :: forall prop. (Testable prop) => prop -> QC Unit
 quickCheck prop = quickCheck' 100 prop
+
+-- | Self-documenting equality assertion
+(===) :: forall a b. (Eq a, Show a) => a -> a -> Result
+(===) a b = a == b <?> msg
+  where
+    msg = show a ++ " /= " ++ show b
+
+-- | Self-documenting inequality assertion
+(/==) :: forall a b. (Eq a, Show a) => a -> a -> Result
+(/==) a b = a /= b <?> msg
+  where
+    msg = show a ++ " == " ++ show b