me
/
guix
Archived
1
0
Fork 0
Code

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
master
Ludovic Courtès 2023-11-23 15:22:06 +01:00
parent a14dafaa01
commit e04f8fe4ea
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/syscalls.scm
View File

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