assertAlmostEqual :: String -> Double -> Double -> Assertion
assertAlmostEqual preface expected actual =
unless (actual ~= expected) (assertFailure msg)
assertAlmostEqual :: String -> Double -> Double -> Assertion
assertAlmostEqual preface expected actual =
unless (actual ~= expected) (assertFailure msg)