From: Michael Orlitzky Date: Tue, 4 Oct 2011 19:26:58 +0000 (-0400) Subject: Import explicitly in Assertions.hs. X-Git-Tag: 0.0.1~103 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=cf2126c163fc1cf26175da1c7200a0ec1e3e034d;p=spline3.git Import explicitly in Assertions.hs. --- diff --git a/src/Assertions.hs b/src/Assertions.hs index 33b79b9..b2ec7c1 100644 --- a/src/Assertions.hs +++ b/src/Assertions.hs @@ -5,10 +5,12 @@ module Assertions where import Control.Monad (unless) -import Test.HUnit +import Test.HUnit (Assertion, + assertBool, + assertFailure) -import Comparisons -import Point +import Comparisons ((~=)) +import Point (Point, is_close) -- | An HUnit assertion that wraps the almost_equals function. Stolen -- from the definition of 'assertEqual' in Test\/HUnit\/Base.hs. @@ -27,6 +29,7 @@ assertClose preface expected actual = 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 :: String -> Bool -> Assertion assertTrue = assertBool