brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Run all new tests.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-15 15:35:40 +02:00
parent 45252d7fc4
commit 874750e483
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/sgr-list.scm
View file

@ -480,6 +480,12 @@
(test-equal? sgr-token-neutralize (test-equal? sgr-token-neutralize
(sgr-token-neutralize '("Hello\b" . 6)) (sgr-token-neutralize '("Hello\b" . 6))
'("Hello" . 5)) '("Hello" . 5))
(let ((ts "\x1b[41m \x1b[49m"))
(test-equal? string->sgr-list/words:sgr-list->string
(sgr-list->string
(string->sgr-list/words ts))
ts))
)) ))
) )