From f61b7f1f2fd31270936548e51fa64739ebdf4e5b Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 19 Nov 2018 01:40:30 +0000 Subject: [PATCH] Check all four quadrants of complex asin, acos, atan. --- tests/runtime/test-arith.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm index 391726d76..26d403d34 100644 --- a/tests/runtime/test-arith.scm +++ b/tests/runtime/test-arith.scm @@ -499,6 +499,10 @@ USA. (vector (/ (sqrt (+ 2 (sqrt 2))) 2) (* pi 3/8)) (vector (/ (+ (sqrt 6) (sqrt 2)) 4) (* pi 5/12)) (vector 1 (/ pi 2)) + (vector 1+i .6662394324925153+1.0612750619050357i) + (vector -1+i -.6662394324925153+1.0612750619050357i) + (vector -1-i -.6662394324925153-1.0612750619050357i) + (vector 1-i .6662394324925153-1.0612750619050357i) (vector 2 1.5707963267948966+1.3169578969248166i 'xfail) (vector 2.+0.i 1.5707963267948966+1.3169578969248166i) (vector 2.-0.i 1.5707963267948966-1.3169578969248166i) @@ -542,6 +546,10 @@ USA. (vector (/ (sqrt (- 2 (sqrt 2))) 2) (* pi 3/8)) (vector (/ (- (sqrt 6) (sqrt 2)) 4) (* pi 5/12)) (vector 0 (/ pi 2)) + (vector 1+i .9045568943023813-1.0612750619050357i) + (vector -1+i 2.2370357592874117-1.0612750619050357i) + (vector -1-i 2.2370357592874117+1.0612750619050355i) + (vector 1-i .9045568943023814+1.0612750619050355i) (vector 2 (* +i (log (- 2 (sqrt 3)))) 'xfail) (vector 2.+0.i (* +i (log (- 2 (sqrt 3))))) (vector 2.-0.i (* -i (log (- 2 (sqrt 3))))) @@ -590,6 +598,10 @@ USA. (vector (sqrt 3) (/ 3.1415926535897932 3)) (vector (+ (sqrt 2) 1) (* 3.1415926535897932 3/8)) (vector (+ 2 (sqrt 3)) (* 3.1415926535897932 5/12)) + (vector 1+i 1.0172219678978514+.4023594781085251i) + (vector -1+i -1.0172219678978514+.4023594781085251i) + (vector -1-i -1.0172219678978514-.4023594781085251i) + (vector 1-i 1.0172219678978514-.4023594781085251i) (vector +2i +1.5707963267948966+.5493061443340549i) (vector +0.+2i +1.5707963267948966+.5493061443340549i) (vector -0.+2i -1.5707963267948966+.5493061443340549i) -- 2.25.1