Unit testing 如何测试Clojure中的两个数字是否接近

在Clojure中，测试两个数字是否彼此接近的惯用方法是什么

沿着以下路线的某处：

(deftest sqrt-test
   (is (~= 1.414 (Math/sqrt 2)))

---

您需要定义“关闭”。如果您要求小于某个公差的“差异”，您可以使用

滚动您自己的函数，尽管我喜欢MichałMarczyk的解决方案，但请注意已经有了

大约=

clojure.algo.generic.math-functions中定义的函数。示例用法：

clojuree.o=> (approx= 1.41 (sqrt 2) 1e-2)
true
clojuree.o=> (approx= 1.41 (sqrt 2) 1e-4)
false

(defn absolute-difference ^double [^double x ^double y]
  (Math/abs (double (- x y))))

(defn relative-difference ^double [^double x ^double y]
  (/ (Math/abs (- x y))
     (max (Math/abs x) (Math/abs y))))

clojuree.o=> (approx= 1.41 (sqrt 2) 1e-2)
true
clojuree.o=> (approx= 1.41 (sqrt 2) 1e-4)
false