ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Use ‘test-equal’ for ‘terminal-string-width’ tests.

Browse source 
* tests/syscalls.scm ("terminal-string-width English")
("terminal-string-width Japanese"): Use ‘test-equal’.

Change-Id: I3791b2e4c9e35735db6c6da995da8ef0f9a71804
This commit is contained in:
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 @@ (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)))