pyrox.dev
1--- a/testsuite/assertions.lisp
2+++ b/testsuite/assertions.lisp
3@@ -13,7 +13,7 @@
4 relation when computing with floating point numbers. Two floating point numbers are
5 essentially equal when they are in a neighbourhood whose size is based
6 on the magnitude orders of these floating point numbers and the inaccuracy."
7- (:report
8+ :report
9 (lambda (stream)
10 (flet ((maybe-report (name float1 float2)
11 (unless (float-is-essentially-equal (p:y point1) (p:y point2) :inaccuracy inaccuracy)
12@@ -29,7 +29,7 @@
13 inaccuracy (confidence::float-comparison-threshold 'single-float max inaccuracy float1 float2)))))
14 (maybe-report "X" (p:x point1) (p:x point2))
15 (maybe-report "Y" (p:y point1) (p:y point2))
16- (maybe-report "Z" (p:z point1) (p:z point2)))))
17+ (maybe-report "Z" (p:z point1) (p:z point2))))
18 (and (float-is-essentially-equal (p:x point1) (p:x point2) :inaccuracy inaccuracy)
19 (float-is-essentially-equal (p:y point1) (p:y point2) :inaccuracy inaccuracy)
20 (float-is-essentially-equal (p:z point1) (p:z point2) :inaccuracy inaccuracy)))
21
22Diff finished. Sun Oct 20 03:05:54 2024