mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 07:12:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: cmp: add regression tests for this branch

Browse source
This commit is contained in:
Daniel Kochmański 2023-09-22 20:00:42 +02:00
parent ad4002e578
commit 2414e829cc
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2344,3 +2344,20 @@
(is (floatp (funcall (cmplambda ()
(let ((x most-positive-single-float))
x))))))
(test cmp.0097.wt-loc-regressions
;; Baseline (this works)
(is (null (nth-value 1 (compile nil '(lambda (x) (not (the integer x)))))))
;; Unreleased regressions (** Unknown location found in WT-LOC: NIL)
(is (null (nth-value 1 (compile nil '(lambda (x) (not (the single-float x)))))))
(is (null (nth-value 1 (compile nil '(lambda (x) (not (the double-float x)))))))
(is (null (nth-value 1 (compile nil '(lambda (x) (not (the long-float x))))))))
(test cmp.0097.cmp-regression
(let ((fun (cmplambda ()
(EXPT
(LABELS ((%F14 () 0))
(%F14))
0))))
(let ((res (FUNCALL fun)))
(is (= 1 res) "Res is ~s, should be 1." res))))