diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-11-23 15:22:06 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-11-25 16:29:25 +0100 |
| commit | e04f8fe4ea50f81847cad98a5dc6b32c27b81ea2 (patch) | |
| tree | 9e4d4e261c3d82dd2748b20cb568a48194bb1648 /tests | |
| parent | a14dafaa01497f733419b5a738baf5822544ebc4 (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.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index eb85b358c4a..340c1147de8 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm | |||
| @@ -583,11 +583,13 @@ | |||
| 583 | (test-assert "terminal-rows" | 583 | (test-assert "terminal-rows" |
| 584 | (> (terminal-rows) 0)) | 584 | (> (terminal-rows) 0)) |
| 585 | 585 | ||
| 586 | (test-assert "terminal-string-width English" | 586 | (test-equal "terminal-string-width English" |
| 587 | (= (terminal-string-width "hello") 5)) | 587 | 5 |
| 588 | (terminal-string-width "hello")) | ||
| 588 | 589 | ||
| 589 | (test-assert "terminal-string-width Japanese" | 590 | (test-equal "terminal-string-width Japanese" |
| 590 | (= (terminal-string-width "今日は") 6)) | 591 | 6 |
| 592 | (terminal-string-width "今日は")) | ||
| 591 | 593 | ||
| 592 | (test-assert "openpty" | 594 | (test-assert "openpty" |
| 593 | (let ((head inferior (openpty))) | 595 | (let ((head inferior (openpty))) |