From 24c656a5824bfd4fb9d45dfd88a25f6015e56db4 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Wed, 24 Sep 2014 19:57:01 -0700
Subject: [PATCH] Add tests for compiled log2 and log10.

---
 tests/float.lisp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/tests/float.lisp b/tests/float.lisp
index eeb221b1d..55b901334 100644
--- a/tests/float.lisp
+++ b/tests/float.lisp
@@ -21,3 +21,25 @@
     (let ((x (float (expt 10 k) 1d0)))
       (assert-equalp k (log x 10)))))
 
+(compile 'clog2
+	 #'(lambda (x)
+	     (declare (type (double-float (0d0)) x))
+	     (log x 2)))
+
+(compile 'clog10
+	 #'(lambda (x)
+	     (declare (type (double-float (0d0)) x))
+	     (log x 10)))
+
+(define-test log2.compiled
+  (loop for k from -1074 to 1023 do
+    (let ((x (scale-float 1d0 k)))
+      (assert-equalp k (clog2 x)))))
+
+(define-test log10.compiled
+  (loop for k from 0 to 22 do
+    (let ((x (float (expt 10 k) 1d0)))
+      (assert-equalp k (clog10 x)))))
+
+
+
-- 
GitLab