me
/
guix
Archived
1
0
Fork 0
Code

tests: Skip ‘terminal-string-width’ test on encodings other than UTF-8. 

* tests/syscalls.scm ("terminal-string-width Japanese"): Skip when the
encoding of (current-output-port) is not UTF-8.

Reported-by: Ashvith Shetty <ashvithshetty10@gmail.com>
Change-Id: Ic284dd088d6b148d6fcb457290a28fdb0838b83d
master
Ludovic Courtès 2024-05-13 16:30:31 +02:00
parent 723d45866f
commit 7ca9809cdb
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/syscalls.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014-2021, 2024 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2020 Simon South <simon@simonsouth.net> ;;; Copyright © 2020 Simon South <simon@simonsouth.net>
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
@ -587,6 +587,8 @@
5 5
(terminal-string-width "hello")) (terminal-string-width "hello"))
;; The following test requires a Unicode-capable locale encoding.
(test-skip (if (string=? (port-encoding (current-output-port)) "UTF-8") 0 1))
(test-equal "terminal-string-width Japanese" (test-equal "terminal-string-width Japanese"
6 6
(terminal-string-width "今日は")) (terminal-string-width "今日は"))