Commit 6c088032 authored by pfdietz's avatar pfdietz
Browse files

Fixed test problem

parent 41aecc44
...@@ -6,8 +6,10 @@ ...@@ -6,8 +6,10 @@
(in-package :cl-test) (in-package :cl-test)
(deftest atan.1 (deftest atan.1
(atan 0) (let ((result (atan 0)))
0.0) (or (eqlt result 0)
(eqlt result 0.0)))
t)
(deftest atan.2 (deftest atan.2
(loop for type in '(short-float single-float double-float long-float) (loop for type in '(short-float single-float double-float long-float)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment