summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-11-23 15:22:06 +0100
committerLudovic Courtès <ludo@gnu.org>2023-11-25 16:29:25 +0100
commite04f8fe4ea50f81847cad98a5dc6b32c27b81ea2 (patch)
tree9e4d4e261c3d82dd2748b20cb568a48194bb1648 /tests
parenta14dafaa01497f733419b5a738baf5822544ebc4 (diff)
tests: Use ‘test-equal’ for ‘terminal-string-width’ tests.
* tests/syscalls.scm ("terminal-string-width English") ("terminal-string-width Japanese"): Use ‘test-equal’. Change-Id: I3791b2e4c9e35735db6c6da995da8ef0f9a71804
Diffstat (limited to 'tests')
-rw-r--r--tests/syscalls.scm10
1 files 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)))