From 15fef988afeef11d551e90ea4ad211b1114efda3 Mon Sep 17 00:00:00 2001 From: krzygorz Date: Thu, 7 Nov 2019 22:31:29 +0100 Subject: [PATCH] add a test for col with unicode and ANSI escapes --- lib/chibi/show-test.sld | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lib/chibi/show-test.sld b/lib/chibi/show-test.sld index dff1efaa..c57383d5 100644 --- a/lib/chibi/show-test.sld +++ b/lib/chibi/show-test.sld @@ -739,6 +739,10 @@ def | 6 (show #f (with ((pad-char #\〜)) (padded/both 5 "日本語")))) (test "日本語" (show #f (as-unicode (with ((pad-char #\〜)) (padded/both 5 "日本語"))))) + (test "\x1b;[31m1234567\x1b;[0m col: 7" + (show #f (as-unicode (as-red "1234567") (fn ((col)) (each " col: " col))))) + (test "日本語 col: 6" + (show #f (as-unicode "日本語" (fn ((col)) (each " col: " col))))) ;; from-file ;; for reference, filesystem-test relies on creating files under /tmp