blob: 4f297cae3a1a7fc541acbaac62a18460fb1df3f2 (
plain)
1
2
3
4
5
6
7
|
{-# LANGUAGE MagicHash #-}
module TestUtils where
assertEqual :: (Show a, Eq a) => a -> a -> IO ()
assertEqual a b
| a /= b = error (show a ++ " /= " ++ show b)
| otherwise = return ()
|