summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/syscalls.scm10
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index eb85b358c4a..340c1147de8 100644
--- a/tests/syscalls.scm
+++ b/tests/syscalls.scm
@@ -583,11 +583,13 @@
583(test-assert "terminal-rows" 583(test-assert "terminal-rows"
584 (> (terminal-rows) 0)) 584 (> (terminal-rows) 0))
585 585
586(test-assert "terminal-string-width English" 586(test-equal "terminal-string-width English"
587 (= (terminal-string-width "hello") 5)) 587 5
588 (terminal-string-width "hello"))
588 589
589(test-assert "terminal-string-width Japanese" 590(test-equal "terminal-string-width Japanese"
590 (= (terminal-string-width "今日は") 6)) 591 6
592 (terminal-string-width "今日は"))
591 593
592(test-assert "openpty" 594(test-assert "openpty"
593 (let ((head inferior (openpty))) 595 (let ((head inferior (openpty)))