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

Fixed test problem

parent 41aecc44
......@@ -6,8 +6,10 @@
(in-package :cl-test)
(deftest atan.1
(atan 0)
(let ((result (atan 0)))
(or (eqlt result 0)
(eqlt result 0.0)))
(deftest atan.2
(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