From 2414e829cc9c73ab4e9e97145d5c2dba6ae4caf2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Fri, 22 Sep 2023 20:00:42 +0200 Subject: [PATCH] tests: cmp: add regression tests for this branch --- src/tests/normal-tests/compiler.lsp | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/src/tests/normal-tests/compiler.lsp b/src/tests/normal-tests/compiler.lsp index fed4dbe93..6a7300952 100644 --- a/src/tests/normal-tests/compiler.lsp +++ b/src/tests/normal-tests/compiler.lsp @@ -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))))