Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: a461f56)
infinity: add regression tests
authorDaniel Kochmański <daniel@turtleware.eu>
Fri, 4 Sep 2015 19:05:24 +0000 (21:05 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Fri, 4 Sep 2015 19:32:09 +0000 (21:32 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/tests/regressions/tests/compiler.lsp patch | blob | blame | history

diff --git a/src/tests/regressions/tests/compiler.lsp b/src/tests/regressions/tests/compiler.lsp
index 4b01635..6e8c21e 100644 (file)
--- a/src/tests/regressions/tests/compiler.lsp
+++ b/src/tests/regressions/tests/compiler.lsp
@@ -1108,3 +1108,32 @@
 1 
 2 
 3 ")
+
+\f
+
+;;; Date: 2015-09-04
+;;; Fixed: Daniel Kochmański
+;;; Description
+;;;     Compiler signalled arithmetic-error when producing C code for infinity
+;;;     and NaN float values (part of ieee floating point extensions).
+
+#+ieee-floating-point
+(deftest compiler.0047.infinity-test.1
+    (progn
+      (defun aux-compiler-0047.infty-test.1 ()
+        (> 0.0 ext:single-float-negative-infinity))
+      (compile 'aux-compiler-0047.infty-test.1))
+  aux-compiler-0047.infty-test.1 NIL NIL)
+
+#+ieee-floating-point
+(deftest compiler.0048.infinity-test.2
+    (progn
+      (with-compiler ("aux-compiler-0048.infty-test.2.lsp")
+        '(defun doit () (> 0.0 ext:single-float-negative-infinity)))
+      (load "aux-compiler-0048.infty-test.2.fas")
+      (delete-file "aux-compiler-0048.infty-test.2.lsp")
+      (delete-file "aux-compiler-0048.infty-test.2.fas")
+      (doit))
+  T)
+
+\f
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)