From cfc9fc1c8270920b74b4579bad5557c6b4998fb7 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Thu, 24 Jul 2003 01:00:10 +0000
Subject: [PATCH] (angle): New tests.

---
 test-suite/tests/numbers.test | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index ecb71d3e8..c889ea106 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -1989,6 +1989,20 @@
 ;;; angle
 ;;;
 
+(with-test-prefix "angle"
+  (define pi 3.14159265358979323846)
+  (define (almost= x y)
+    (> 0.01 (magnitude (- x y))))
+  
+  (pass-if "inum +ve"   (=        0 (angle 1)))
+  (pass-if "inum -ve"   (almost= pi (angle -1)))
+
+  (pass-if "bignum +ve" (=        0 (angle (1+ fixnum-max))))
+  (pass-if "bignum -ve" (almost= pi (angle (1- fixnum-min))))
+
+  (pass-if "flonum +ve" (=        0 (angle 1.5)))
+  (pass-if "flonum -ve" (almost= pi (angle -1.5))))
+
 ;;;
 ;;; inexact->exact
 ;;;