assertClose :: String -> Point -> Point -> Assertion
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
assertClose :: String -> Point -> Point -> Assertion
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