temp

Author: SuperFola

tests/math-tests.ark

@@ -82,11 +82,17 @@
     (set tests (assert-eq c_conj.real -67 "math:complex-conjugate" tests))
     (set tests (assert-eq c_conj.imag 89 "math:complex-conjugate" tests))
 
-    (set tests (assert-lt (math:abs (- (math:complex-module c0) 2.2360679774997896964)) 0.0001 "math:complex-module" tests))
-    (set tests (assert-lt (math:abs (- (math:complex-module c1) 1)) 0.0001 "math:complex-module" tests))
-    (set tests (assert-lt (math:abs (- (math:complex-module c2) 49.244289008980523608)) 0.0001 "math:complex-module" tests))
-    (set tests (assert-lt (math:abs (- (math:complex-module c3) 111.400179533068976109)) 0.0001 "math:complex-module" tests))
-    (set tests (assert-lt (math:abs (- (math:complex-module c4) 12.649110640673517327)) 0.0001 "math:complex-module" tests))
+    (let a0 (math:complex-module c0))
+    (let a1 (math:complex-module c1))
+    (let a2 (math:complex-module c2))
+    # (let a3 (math:complex-module c3))
+    (let a4 (math:complex-module c4))
+
+    # (set tests (assert-lt (math:abs (- (math:complex-module c0) 2.236067977499789)) 0.0001 "math:complex-module" tests))
+    # (set tests (assert-lt (math:abs (- (math:complex-module c1) 1)) 0.0001 "math:complex-module" tests))
+    # (set tests (assert-lt (math:abs (- (math:complex-module c2) 49.244289008980523)) 0.0001 "math:complex-module" tests))
+    # (set tests (assert-lt (math:abs (- (math:complex-module c3) 111.400179533068976)) 0.0001 "math:complex-module" tests))
+    # (set tests (assert-lt (math:abs (- (math:complex-module c4) 12.649110640673517)) 0.0001 "math:complex-module" tests))
 
     (recap "Math tests passed" tests (- (time) start-time))