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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d3baf7610d8ebc7b0079dcc2... You're receiving this email because of your account on gitlab.common-lisp.net.