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:

   (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))))