[Git][cmucl/cmucl][issue-154-piglatin-translation-doesnt-work-anymore] corrects test definition to restore locale afterward

[Jon Boone (@jboone)]

Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl


Commits:
e2bb63ec by Jon Boone at 2023-06-03T22:22:59-04:00
 corrects test definition to restore locale afterward

- - - - -


1 changed file:

- tests/issues.lisp


Changes:

=====================================
tests/issues.lisp
=====================================
@@ -832,10 +832,14 @@
 
 (define-test issue.154
     (:tag :issues)
-  (let ((locale "en_US.UTF-8 at piglatin")
+  (let ((old-locale intl::*locale*)
+	(locale "en_US.UTF-8 at piglatin")
 	(piglatin_text "Ethay izesay ofway away eamstray inway-ufferbay."))
-    (assert-equal locale (intl:setlocale "en_US.UTF-8 at piglatin"))
-    (assert-equal piglatin_text (intl:dgettext "cmucl" "The size of a stream in-buffer."))))
+    (unwind-protect
+	 (progn
+	   (assert-equal locale (intl:setlocale "en_US.UTF-8 at piglatin"))
+	   (assert-equal piglatin_text (intl:dgettext "cmucl" "The size of a stream in-buffer.")))
+      (intl:setlocale old-locale))))
 
 (define-test issue.158
     (:tag :issues)



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

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e2bb63ece46c2ea14176a7c83a901b5f33313283
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/20230604/a3c0ad2c/attachment-0001.html>