Check all four quadrants of complex asin, acos, atan.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index 391726d76c04ee915a92f17e6726c5887e09216c..26d403d34bd9c08a11d25e05a1c8038472a8d2a7 100644 (file)
--- 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)