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

Add a test for the (char-equal base-char base-char) transform.

Browse source
This commit is contained in:
Stas Boukarev 2022-09-23 19:21:50 +03:00
parent b7629ee731
commit 4f5a082359
1 changed files with 22 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
tests/character.pure.lisp
View file

@ -183,9 +183,25 @@
(let ((string (map-into (make-array 10 :element-type 'character :adjustable t)
#'code-char
'(192 193 194 195 196 197 198 199 200 201))))
(assert (equal
(map 'list #'char-code (nstring-downcase string))
'(224 225 226 227 228 229 230 231 232 233)))
(assert (equal
(map 'list #'char-code (string-upcase string))
'(192 193 194 195 196 197 198 199 200 201))) ))
(assert (equal
(map 'list #'char-code (nstring-downcase string))
'(224 225 226 227 228 229 230 231 232 233)))
(assert (equal
(map 'list #'char-code (string-upcase string))
'(192 193 194 195 196 197 198 199 200 201)))))
(with-test (:name :char-equal-transform)
(let ((fun (checked-compile
`(lambda (x y)
(declare (base-char x y)
(optimize speed))
(char-equal x y)))))
(loop for a below sb-int:base-char-code-limit
for char-a = (code-char a)
do
(loop for b below sb-int:base-char-code-limit
for char-b = (code-char b)
for equal = (char= (char-downcase char-a)
(char-downcase char-b))
do (assert (eql (funcall fun char-a char-b)
equal))))))