tests.hs

-- to use, type the following in the commandline: runhaskell tests.hs

expect :: (Eq a, Show a, Monad m) => a -> a -> m ()
expect a b = do
  if a == b then
    return ()
  else
    fail ("Expected " ++ (show a) ++ " but got " ++ (show b) ++ " instead.")

main = do
  expect 1 1
  expect 1 2
  print "All tests passed"