From e04f8fe4ea50f81847cad98a5dc6b32c27b81ea2 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 23 Nov 2023 15:22:06 +0100 Subject: tests: Use ‘test-equal’ for ‘terminal-string-width’ tests. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * tests/syscalls.scm ("terminal-string-width English") ("terminal-string-width Japanese"): Use ‘test-equal’. Change-Id: I3791b2e4c9e35735db6c6da995da8ef0f9a71804 --- tests/syscalls.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'tests') diff --git a/tests/syscalls.scm b/tests/syscalls.scm index eb85b358c4..340c1147de 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -583,11 +583,13 @@ (define perform-container-tests? (test-assert "terminal-rows" (> (terminal-rows) 0)) -(test-assert "terminal-string-width English" - (= (terminal-string-width "hello") 5)) +(test-equal "terminal-string-width English" + 5 + (terminal-string-width "hello")) -(test-assert "terminal-string-width Japanese" - (= (terminal-string-width "今日は") 6)) +(test-equal "terminal-string-width Japanese" + 6 + (terminal-string-width "今日は")) (test-assert "openpty" (let ((head inferior (openpty))) -- cgit v1.2.3