mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: add test for artificial fpe

Browse source
This commit is contained in:
Daniel Kochmanski 2017-08-10 19:28:33 +02:00
parent e0fd6ab22c
commit beefd56f56
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/tests/normal-tests/compiler.lsp
View file

@ -1232,3 +1232,14 @@
(program-error () t)
(error () nil)
(:no-error (v) (declare (ignore v)) nil))))
;;; Date 2017-08-10
;;; Description
;;;
;;; On some platforms (without feenableexcept) compiling code with
;;; constants being infinity cause fpe-exception.
(test cmp.0056.artificial-fpe
(finishes
(funcall (compile nil
'(lambda ()
(eql 10d0 ext:double-float-positive-infinity))))))