diff --git a/lib/srfi/166/test.sld b/lib/srfi/166/test.sld index f45eacac..1cdb08f4 100644 --- a/lib/srfi/166/test.sld +++ b/lib/srfi/166/test.sld @@ -766,7 +766,9 @@ def | 6 (test "日本語ΠΜΕ col: 12" (show #f (with ((ambiguous-is-wide? #t)) (terminal-aware "日本語ΠΜΕ" - (fn (col) (each " col: " col)))))) + (fn (col) (each " col: " col)))))) + (test "fo" (substring-terminal-width "foo" 1 4)) + (test "o" (substring-terminal-width "foo" 2 5)) ;; from-file ;; for reference, filesystem-test relies on creating files under /tmp