Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding some substring-terminal-width tests

Browse source
This commit is contained in:
Alex Shinn 2020-07-20 17:16:58 +09:00
parent bcbed04b3b
commit 58f6509c6f
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/166/test.sld
View file

@ -766,7 +766,9 @@ def | 6
(test "日本語ΠΜΕ col: 12" (test "日本語ΠΜΕ col: 12"
(show #f (with ((ambiguous-is-wide? #t)) (show #f (with ((ambiguous-is-wide? #t))
(terminal-aware "日本語ΠΜΕ" (terminal-aware "日本語ΠΜΕ"
(fn (col) (each " col: " col)))))) (fn (col) (each " col: " col))))))
(test "ｆｏ" (substring-terminal-width "ｆｏｏ" 1 4))
(test "ｏ" (substring-terminal-width "ｆｏｏ" 2 5))
;; from-file ;; from-file
;; for reference, filesystem-test relies on creating files under /tmp ;; for reference, filesystem-test relies on creating files under /tmp