mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-10 07:00:20 -07:00
Code Issues Projects Releases Packages Wiki Activity

infinity: add regression tests

Browse source 
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
Daniel Kochmański 2015-09-04 21:05:24 +02:00
parent a461f561df
commit c8d3836f56
1 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/tests/regressions/tests/compiler.lsp
View file

@ -1108,3 +1108,32 @@
1
2
3 ")
;;; 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)