GitLab

at 2022-12-12T11:10:10-08:00

Load utf16-be format before running test issue.25c

This is a work around until issue #161 is fixed.  We had new test that
loads the utf16-be format before running the test `issue.25c`.

 	(assert-equal (map 'list #'char-code out-string)

 		      (map 'list #'char-code expected))))))

+(define-test issue.25c-setup

+    (:tag :issues)

+  ;; Get the external format before running the test issue.25c.  See

+  ;; issue #161

+  ;; (https://gitlab.common-lisp.net/cmucl/cmucl/-/issues/161).

+  (assert-true (stream::find-external-format :utf16-be)))

+

 (define-test issue.25c

     (:tag :issues)

   ;; Modified test to verify that each octet read from run-program is

 					   #\greek_small_letter_beta)))

 	 (expected (stream:string-encode in-string :utf16-be))

 	 (path #p"issue25c.txt"))

-    ;; Get the external format before opening the file.  See issue

-    ;; #161 (https://gitlab.common-lisp.net/cmucl/cmucl/-/issues/161).

-    (stream::find-external-format :utf16-be)

     (with-open-file (s path :direction :output :if-exists :supersede :external-format :utf16-be)

       (write-string in-string s)

       (force-output s)

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

Commits:

1 changed file:

Changes: