Raymond Toy pushed to branch issue-139-set-terminal-to-utf8 at cmucl / cmucl

Commits: 967f3285 by Raymond Toy at 2022-11-25T19:18:25-08:00 Change test to use the alias for :locale

Previously we tested that `sys:*stdin*` and friends had an external format of `:utf-8`. Instead, get the alias for `:locale` and verify that `sys:*stdin*` and friends have that as the external format.

- - - - -

1 changed file:

- tests/issues.lisp

Changes:

===================================== tests/issues.lisp ===================================== @@ -701,13 +701,17 @@ (define-test issue.139-default-external-format (:tag :issues) (assert-eq :utf-8 stream:*default-external-format*) - (assert-eq :utf-8 (stream-external-format sys:*stdin*)) - (assert-eq :utf-8 (stream-external-format sys:*stdout*)) - (assert-eq :utf-8 (stream-external-format sys:*stderr*)) - ;; sys:*tty* can either be an fd-stream or a two-way-stream. - ;; stream-external-format doesn't work for a two-way-stream. - (unless (typep sys:*tty* 'two-way-stream) - (assert-eq :utf-8 (stream-external-format sys:*tty*)))) + ;; Find the alias for :locale, and verify it exists and verify that + ;; the system streams have that format. + (let ((locale-format (gethash :locale stream::*external-format-aliases*))) + (assert locale-format) + (assert-eq locale-format (stream-external-format sys:*stdin*)) + (assert-eq locale-format (stream-external-format sys:*stdout*)) + (assert-eq locale-format (stream-external-format sys:*stderr*)) + ;; sys:*tty* can either be an fd-stream or a two-way-stream. + ;; stream-external-format doesn't work for a two-way-stream. + (unless (typep sys:*tty* 'two-way-stream) + (assert-eq locale-format (stream-external-format sys:*tty*)))))

(define-test issue.139-default-external-format-read-file (:tag :issues)

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/967f32851d4f265a2fc0b96e...