From a7086d895fd04bf49bfa7dfd114da27aab5ec9de Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Tue, 16 May 2023 00:15:19 +0300 Subject: [PATCH] Fix tests on -sb-unicode --- tests/unicode-properties.pure.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/unicode-properties.pure.lisp b/tests/unicode-properties.pure.lisp index b6435ce95..be7c7b808 100644 --- a/tests/unicode-properties.pure.lisp +++ b/tests/unicode-properties.pure.lisp @@ -180,7 +180,7 @@ is replaced with replacement." (let ((last (car (last missing)))) (assert (equal last '((0 . #x10FFFF) . :L))))) (with-test (:name (:bidi-class :missing)) - (loop for code from 0 to #x10FFFF + (loop for code from 0 to (min (1- char-code-limit) #x10FFFF) for char = (code-char code) if (= (aref tested code) 0) do (test-unallocated-bidi-class code (bidi-class char) missing))))))