shithub: sl

Info  •  Files  •  Log  •  Branches

unit tests: cos: on 9front/arm64 it's *almost* 1.0 but not quite

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -689,7 +689,8 @@

 (assert (= 0 (sin 0.0f)))

 (assert (= 0 (sin (int64 0))))

 (assert (= 0 (sin (bignum 0))))

-(assert (= 1 (cos 0)))

+(let ((x (cos 0)))

+  (assert (and (>= x 0.999999999999999) (<= x 1.0))))

 (assert (= 3 (sqrt 9)))

 (assert (= 3 (log10 1000)))

 (assert (= 0 (log 1)))