From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 11 May 2011 19:17:41 +0000 (-0400)
Subject: Add assertTrue = assertBool.
X-Git-Tag: 0.0.1~296
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=23f7d3668482dfbe768bc3009b92836e94578137;p=spline3.git

Add assertTrue = assertBool.
---

diff --git a/src/Assertions.hs b/src/Assertions.hs
index b51c252..6641e8c 100644
--- 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