Skip to content

Instantly share code, notes, and snippets.

@ehamberg

ehamberg/mk_assert.hs

Created March 11, 2013 21:59
Show Gist options
  • Save ehamberg/5138197 to your computer and use it in GitHub Desktop.
Save ehamberg/5138197 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
mk_assert.hs
mk_assert pred_fn (expected, actual, formatter) =
if pred_fn (expected, actual)
then "Test passed"
else "Expected '" ++ formatter expected ++ "' but got '" ++ formatter actual ++ "'"
assert_equals = mk_assert (uncurry (==))
pass2 = assert_equals(42, 42, show)
fail2 = assert_equals(1, 2, show)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment