From e04f8fe4ea50f81847cad98a5dc6b32c27b81ea2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 23 Nov 2023 15:22:06 +0100
Subject: [PATCH] =?UTF-8?q?tests:=20Use=20=E2=80=98test-equal=E2=80=99=20f?=
 =?UTF-8?q?or=20=E2=80=98terminal-string-width=E2=80=99=20tests.?=
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(-)

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 @@
 (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)))