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