Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
89056615
Commit
89056615
authored
Apr 24, 2003
by
pfdietz
Browse files
Modified or removed some problematic tests; fixed some test names
parent
9cb4a4c3
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/subtypep-float.lsp
View file @
89056615
...
@@ -226,22 +226,6 @@
...
@@ -226,22 +226,6 @@
;;;
;;;
(deftest subtypep.float.zero.1
(check-equivalence '(float 0.0 *)
'(or (float (0.0) *)
(member -0.0 0.0)))
nil)
(unless (eql 0.0 -0.0)
(deftest subtypep.float.zero.2
(values (subtypep '(float 0.0)
'(or (float (0.0)) (member 0.0))))
nil)
(deftest subtypep.float.zero.
(values (subtypep '(float 0.0)
'(or (float (0.0)) (member -0.0))))
nil))
(deftest subtypep.float.zero.3
(deftest subtypep.float.zero.3
(subtypep* '(float -0.0 *) '(float 0.0 *))
(subtypep* '(float -0.0 *) '(float 0.0 *))
t t)
t t)
...
@@ -283,11 +267,11 @@
...
@@ -283,11 +267,11 @@
nil)
nil)
(unless (eql 0.0f0 -0.0f0)
(unless (eql 0.0f0 -0.0f0)
(deftest subtypep.single-float.zero.2
(deftest subtypep.single-float.zero.2
a
(values (subtypep '(single-float 0.0f0)
(values (subtypep '(single-float 0.0f0)
'(or (single-float (0.0f0)) (member 0.0f0))))
'(or (single-float (0.0f0)) (member 0.0f0))))
nil)
nil)
(deftest subtypep.single-float.zero.
(deftest subtypep.single-float.zero.
2b
(values (subtypep '(single-float 0.0f0)
(values (subtypep '(single-float 0.0f0)
'(or (single-float (0.0f0)) (member -0.0f0))))
'(or (single-float (0.0f0)) (member -0.0f0))))
nil))
nil))
...
@@ -333,11 +317,11 @@
...
@@ -333,11 +317,11 @@
nil)
nil)
(unless (eql 0.0l0 -0.0l0)
(unless (eql 0.0l0 -0.0l0)
(deftest subtypep.long-float.zero.2
(deftest subtypep.long-float.zero.2
a
(values (subtypep '(long-float 0.0l0)
(values (subtypep '(long-float 0.0l0)
'(or (long-float (0.0l0)) (member 0.0l0))))
'(or (long-float (0.0l0)) (member 0.0l0))))
nil)
nil)
(deftest subtypep.long-float.zero.
(deftest subtypep.long-float.zero.
2b
(values (subtypep '(long-float 0.0l0)
(values (subtypep '(long-float 0.0l0)
'(or (long-float (0.0l0)) (member -0.0l0))))
'(or (long-float (0.0l0)) (member -0.0l0))))
nil))
nil))
...
@@ -383,11 +367,11 @@
...
@@ -383,11 +367,11 @@
nil)
nil)
(unless (eql 0.0d0 -0.0d0)
(unless (eql 0.0d0 -0.0d0)
(deftest subtypep.double-float.zero.2
(deftest subtypep.double-float.zero.2
a
(values (subtypep '(double-float 0.0d0)
(values (subtypep '(double-float 0.0d0)
'(or (double-float (0.0d0)) (member 0.0d0))))
'(or (double-float (0.0d0)) (member 0.0d0))))
nil)
nil)
(deftest subtypep.double-float.zero.
(deftest subtypep.double-float.zero.
2b
(values (subtypep '(double-float 0.0d0)
(values (subtypep '(double-float 0.0d0)
'(or (double-float (0.0d0)) (member -0.0d0))))
'(or (double-float (0.0d0)) (member -0.0d0))))
nil))
nil))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment