common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Fix tests on -sb-unicode

Browse source
This commit is contained in:
Stas Boukarev 2023-05-16 00:15:19 +03:00
parent c8c0b9fcc7
commit a7086d895f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tests/unicode-properties.pure.lisp
View file

@ -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))))))