mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
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
This commit is contained in:
parent
a14dafaa01
commit
e04f8fe4ea
1 changed files with 6 additions and 4 deletions
|
@ -583,11 +583,13 @@ (define perform-container-tests?
|
||||||
(test-assert "terminal-rows"
|
(test-assert "terminal-rows"
|
||||||
(> (terminal-rows) 0))
|
(> (terminal-rows) 0))
|
||||||
|
|
||||||
(test-assert "terminal-string-width English"
|
(test-equal "terminal-string-width English"
|
||||||
(= (terminal-string-width "hello") 5))
|
5
|
||||||
|
(terminal-string-width "hello"))
|
||||||
|
|
||||||
(test-assert "terminal-string-width Japanese"
|
(test-equal "terminal-string-width Japanese"
|
||||||
(= (terminal-string-width "今日は") 6))
|
6
|
||||||
|
(terminal-string-width "今日は"))
|
||||||
|
|
||||||
(test-assert "openpty"
|
(test-assert "openpty"
|
||||||
(let ((head inferior (openpty)))
|
(let ((head inferior (openpty)))
|
||||||
|
|
Loading…
Reference in a new issue