mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 13:31:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: add without-fpe-traps macro

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-21 21:12:14 +01:00
parent 7747313d74
commit 88f251d99c
1 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/tests/normal-tests/ieee-fp.lsp
View file

@ -10,17 +10,23 @@
(suite 'ieee-fp)
(defmacro without-fpe-traps (&body body)
`(unwind-protect
(progn
(si:trap-fpe 'last nil)
,@body)
(si:trap-fpe 'last t)))
(test ieee-fp.0001.infinity-eql
(si:trap-fpe 'last nil)
(let ((sfni ext:single-float-negative-infinity)
(sfpi ext:single-float-positive-infinity)
(dfni ext:double-float-negative-infinity)
(dfpi ext:double-float-positive-infinity))
(is (eql sfni (- sfpi)))
(is (eql dfni (- dfpi)))
(is (not (eql sfni (- dfpi))))
(is (= sfni (- dfpi))))
(si:trap-fpe 'last t))
(without-fpe-traps
(let ((sfni ext:single-float-negative-infinity)
(sfpi ext:single-float-positive-infinity)
(dfni ext:double-float-negative-infinity)
(dfpi ext:double-float-positive-infinity))
(is (eql sfni (- sfpi)))
(is (eql dfni (- dfpi)))
(is (not (eql sfni (- dfpi))))
(is (= sfni (- dfpi))))))
(test ieee-fp.0002.printing
(let ((nums (list ext:single-float-negative-infinity