Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 4672:938ffa3ffe4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert to original language environment, tests/automated/mule-tests.el. tests/ChangeLog addition: 2009-08-10 Aidan Kehoe <kehoea@parhasard.net> * automated/mule-tests.el: Revert to the original language environment once we've tested all the others, preventing things like a Chinese terminal coding system being selected when you actually have a UTF-8 tty.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 10 Aug 2009 16:25:08 +0100
parents 8905163c49c5
children 7e54adf407a1
comparison
equal deleted inserted replaced
4671:e9b88e997479 4672:938ffa3ffe4d
573 ;;--------------------------------------------------------------- 573 ;;---------------------------------------------------------------
574 (loop 574 (loop
575 for language in (mapcar #'car language-info-alist) 575 for language in (mapcar #'car language-info-alist)
576 with language-input-method = nil 576 with language-input-method = nil
577 with native-coding-system = nil 577 with native-coding-system = nil
578 with original-language-environment = current-language-environment
578 do 579 do
579 ;; s-l-e can call #'require, which says "Loading ..." 580 ;; s-l-e can call #'require, which says "Loading ..."
580 (Silence-Message (set-language-environment language)) 581 (Silence-Message (set-language-environment language))
581 (Assert (equal language current-language-environment)) 582 (Assert (equal language current-language-environment))
582 583
611 native-coding-system 612 native-coding-system
612 (list native-coding-system))) 613 (list native-coding-system)))
613 ;; We don't have the appropriate POSIX locales to test with a 614 ;; We don't have the appropriate POSIX locales to test with a
614 ;; native-coding-system that is a function. 615 ;; native-coding-system that is a function.
615 (unless (functionp coding-system) 616 (unless (functionp coding-system)
616 (Assert (coding-system-p (find-coding-system coding-system)))))) 617 (Assert (coding-system-p (find-coding-system coding-system)))))
618 finally (set-language-environment original-language-environment))
617 619
618 (with-temp-buffer 620 (with-temp-buffer
619 (flet 621 (flet
620 ((Assert-elc-is-escape-quoted () 622 ((Assert-elc-is-escape-quoted ()
621 "Assert the current buffer has an escape-quoted cookie if compiled." 623 "Assert the current buffer has an escape-quoted cookie if compiled."