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: ieee-fp: trap-fpe: use symbol, not a keyword

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-20 18:23:40 +01:00
parent 4ba367531e
commit 0df83ada2b
1 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -11,17 +11,16 @@
(suite 'ieee-fp)
(test ieee-fp.0001.infinity-eql
(let ((bits (si:trap-fpe :last nil)))
(si:trap-fpe bits 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 bits t)))
(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))
(test ieee-fp.0002.printing
(let ((nums (list ext:single-float-negative-infinity