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@piglatin") + (let ((old-locale intl::*locale*) + (locale "en_US.UTF-8@piglatin") (piglatin_text "Ethay izesay ofway away eamstray inway-ufferbay.")) - (assert-equal locale (intl:setlocale "en_US.UTF-8@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@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/e2bb63ece46c2ea14176a7c8...