Add assertTrue = assertBool.

diff --git a/src/Assertions.hs b/src/Assertions.hs
index b51c25286491c90a506882a78373af6f1f80cd94..6641e8c988c146026bd79191f8d7f7c4273f64c8 100644 (file)
--- a/src/Assertions.hs
+++ b/src/Assertions.hs
@@ -26,3 +26,6 @@ assertClose preface expected actual =
   unless (actual `is_close` expected) (assertFailure msg)
     where msg = (if null preface then "" else preface ++ "\n") ++
                 "expected: " ++ show expected ++ "\n but got: " ++ show actual
+
+-- | It's asinine that this doesn't exist already.
+assertTrue = assertBool