Mercurial > hg > xemacs-beta

diff tests/automated/mule-tests.el @ 4305:2bb3630ea397

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-12-04 20:40:49 by aidan] Fix make check in the presence of variant language environments.
author aidan
date Tue, 04 Dec 2007 20:40:51 +0000
parents eded49463f9a
children 4d0f773d5e21
line wrap: on
line diff
--- a/tests/automated/mule-tests.el	Tue Dec 04 20:35:31 2007 +0000
+++ b/tests/automated/mule-tests.el	Tue Dec 04 20:40:51 2007 +0000
@@ -548,6 +548,7 @@
   (loop
     for language in (mapcar #'car language-info-alist)
     with language-input-method = nil
+    with native-coding-system = nil
     do
     ;; s-l-e can call #'require, which says "Loading ..."
     (Silence-Message (set-language-environment language))
@@ -577,8 +578,12 @@
       (Assert (charsetp (find-charset charset))))
     (dolist (coding-system (get-language-info language 'coding-system))
       (Assert (coding-system-p (find-coding-system coding-system))))
-    (dolist (coding-system (get-language-info language
-                                              'native-coding-system))
+    (dolist (coding-system
+             (if (listp (setq native-coding-system
+                              (get-language-info language
+                                                 'native-coding-system)))
+                 native-coding-system
+               (list native-coding-system)))
       ;; We don't have the appropriate POSIX locales to test with a
       ;; native-coding-system that is a function.
       (unless (functionp coding-system)