Commit 2d6abaef authored by pfdietz's avatar pfdietz
Browse files

Added tests of comparison of 0.0 with -0.0 (if it exists.)

parent e78d8fc4
......@@ -470,6 +470,12 @@
(<.10-fn)
nil)
(deftest <.11
(loop for x in '(0.0s0 0.0f0 0.0d0 0.0l0)
never (or (< (- x) x)
(< x (- x))))
t)
(deftest <.order.1
(let ((i 0) x y)
(values
......@@ -637,6 +643,12 @@
(<=.9-fn)
nil)
(deftest <=.10
(loop for x in '(0.0s0 0.0f0 0.0d0 0.0l0)
always (and (<= (- x) x)
(<= x (- x))))
t)
(deftest <=.order.1
(let ((i 0) x y)
(values
......@@ -721,6 +733,12 @@
(>.8-fn)
nil)
(deftest >.9
(loop for x in '(0.0s0 0.0f0 0.0d0 0.0l0)
never (or (> (- x) x)
(> x (- x))))
t)
(deftest >.order.1
(let ((i 0) x y)
(values
......@@ -807,6 +825,12 @@
(>=.8-fn)
nil)
(deftest >=.9
(loop for x in '(0.0s0 0.0f0 0.0d0 0.0l0)
always (and (>= (- x) x)
(>= x (- x))))
t)
(deftest >=.order.1
(let ((i 0) x y)
(values
......
Markdown is supported
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