[Git][cmucl/cmucl][issue-139-set-filename-encoding-to-utf8] Load utf16-be format before running test issue.25c

[Raymond Toy (@rtoy)]

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


Commits:
2c91358a by Raymond Toy 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`.

- - - - -


1 changed file:

- tests/issues.lisp


Changes:

=====================================
tests/issues.lisp
=====================================
@@ -258,6 +258,13 @@
 	(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
@@ -267,9 +274,6 @@
 					   #\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)



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

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2c91358a7b87522b3cc8bef163f4ff5c0fe4cdae
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/20221212/a96b50ce/attachment-0001.html>