mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: add regression test for errors in printing non-ascii symbol names

Browse source 
Changes submitted by Vladimir Sedach to the ecl-devel mailing list.
This commit is contained in:
Marius Gerbershagen 2020-05-06 21:00:57 +02:00
parent ca01514a47
commit de2269c9e7
1 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/tests/normal-tests/unicode.lsp
View file

@ -40,3 +40,30 @@
(is (equal
"ДАННЫЕ"
(pathname-name (pathname "/tmp/данные.txt") :case :common))))
;;; Date: 2020-05-03
;;; From: Vladimir Sedach <vas@oneofus.la>
;;; Fixed: 2020-05-03 (Vladimir Sedach)
;;; Description:
;;;
;;; Symbol names that contain Unicode are not printed correctly
;;;
(test unicode.0003.print-unicode-symbols
(is (string-equal
"АБРАКАДАБРА"
(format nil "~A" (read-from-string "абракадабра")))))
;;; Date: 2020-05-03
;;; From: Vladimir Sedach <vas@oneofus.la>
;;; Fixed: 2020-05-03 (Vladimir Sedach)
;;; Description:
;;;
;;; unicode.0003.print-unicode-symbols shows up as a compiler
;;; error for symbol names that contain char codes between 128
;;; and 255, possibly others
;;;
(test unicode.0004.compile-unicode-symbols
(with-compiler ("unicode.0004.lsp" :load t)
"(defun unicode.0004 (x¹ y²)
(+ x¹ y²))")
(is (= 7 (unicode.0004 5 2))))