adding some substring-terminal-width tests

This commit is contained in:
Alex Shinn 2020-07-20 17:16:58 +09:00
parent bcbed04b3b
commit 58f6509c6f

View file

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