Raymond Toy pushed to branch issue-339-add-alias-for-646-codeset at cmucl / cmucl

Commits: d3baf761 by Raymond Toy at 2024-08-20T16:00:07-07:00 Add a test for external format :646

Verify that the external format `:646` exists and that it is the same as the external-format `:iso646-us`.

We do this because #339 mentions that in Java, "646" is the same as "ISO646-US".

- - - - -

1 changed file:

- tests/issues.lisp

Changes:

===================================== tests/issues.lisp ===================================== @@ -1118,3 +1118,11 @@ (assert-error 'file-error (load "unknown.lisp" :if-does-not-exist t)) (assert-false (load "unknown.lisp" :if-does-not-exist nil))) + +(define-test issue.339.646-external-format + (:tag :issues) + ;; Just verify that the external format :646 exists and is the same + ;; as :iso646-us. + (assert-true (stream::find-external-format :646 nil)) + (assert-true (eq (stream::find-external-format :646 nil) + (stream::find-external-format :iso646-us nil))))

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