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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e2bb63ece46c2ea14176a7c8... You're receiving this email because of your account on gitlab.common-lisp.net.