mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-09 14:40:37 -07:00
Code Issues Projects Releases Packages Wiki Activity

tests: add a regression test for a readtable-case bug

Browse source
This commit is contained in:
Daniel Kochmański 2026-03-02 12:43:10 +01:00
parent 9b1b5bdcbe
commit 83fc257cfa
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/tests/normal-tests/mixed.lsp
View file

@ -655,3 +655,17 @@
(result (translate-logical-pathname pathname))
(expect #P"/hello/bonjour/hi/barev/what/greetings.me"))
(is (equalp result expect))))
;;; Reported by: Daniel Kochmański
;;; Created: 2026-03-02
;;; Issue: https://gitlab.com/embeddable-common-lisp/ecl/-/issues/813
;;; Description
;;;
;;; Reader does not handle correctly escaped characters when the
;;; READTABLE-CASE is :INVERT.
(deftest mix.0033.preserve-escaped-characters ()
(let ((*readtable* (copy-readtable)))
(setf (readtable-case *readtable*) :invert)
(is (string=
(symbol-name (read-from-string "DANIEL|--xXx--|MANSKI"))
"daniel--xXx--manski"))))