[Git][cmucl/cmucl][issue-139a-default-external-format-utf8] *tty* format can be either :utf-8 or :default

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch issue-139a-default-external-format-utf8 at cmucl / cmucl


Commits:
86b4483e by Raymond Toy at 2022-09-23T16:46:25-07:00
*tty* format can be either :utf-8 or :default

`*tty*` can either be an fd-stream of a two-way-stream.  If the
former, the format is `:utf-8`; if the latter, `:default`.  Update
test accordingly.

- - - - -


1 changed file:

- tests/issues.lisp


Changes:

=====================================
tests/issues.lisp
=====================================
@@ -587,7 +587,11 @@
   (assert-eql :utf-8 (stream-external-format sys:*stdin*))
   (assert-eql :utf-8 (stream-external-format sys:*stdout*))
   (assert-eql :utf-8 (stream-external-format sys:*stderr*))
-  (assert-eql :utf-8 (stream-external-format sys:*tty*))
+  ;; *tty* can either be an fd-stream, in which case the format is
+  ;; utf8, or a two-way-stream, in which case it is :default.  
+  (if (typep sys:*tty* 'two-way-stream)
+        (assert-eql :default (stream-external-format sys:*tty*))
+	(assert-eql :utf-8 (stream-external-format sys:*tty*)))
   ;; Check that printing to *standard-output* is correctly encoded.
   (dribble "test-format.txt")
   ;; Print a Greek lower-case alpha character



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/86b4483e870dc7f5bd512fdcd7002d7844c4d186

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/86b4483e870dc7f5bd512fdcd7002d7844c4d186
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20220923/101b7d0c/attachment.html>