Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
4304:4ac3a83867c6 4305:2bb3630ea397
546 ;; Language environments, and whether the specified values are sane. 546 ;; Language environments, and whether the specified values are sane.
547 ;;--------------------------------------------------------------- 547 ;;---------------------------------------------------------------
548 (loop 548 (loop
549 for language in (mapcar #'car language-info-alist) 549 for language in (mapcar #'car language-info-alist)
550 with language-input-method = nil 550 with language-input-method = nil
551 with native-coding-system = nil
551 do 552 do
552 ;; s-l-e can call #'require, which says "Loading ..." 553 ;; s-l-e can call #'require, which says "Loading ..."
553 (Silence-Message (set-language-environment language)) 554 (Silence-Message (set-language-environment language))
554 (Assert (equal language current-language-environment)) 555 (Assert (equal language current-language-environment))
555 556
575 576
576 (dolist (charset (get-language-info language 'charset)) 577 (dolist (charset (get-language-info language 'charset))
577 (Assert (charsetp (find-charset charset)))) 578 (Assert (charsetp (find-charset charset))))
578 (dolist (coding-system (get-language-info language 'coding-system)) 579 (dolist (coding-system (get-language-info language 'coding-system))
579 (Assert (coding-system-p (find-coding-system coding-system)))) 580 (Assert (coding-system-p (find-coding-system coding-system))))
580 (dolist (coding-system (get-language-info language 581 (dolist (coding-system
581 'native-coding-system)) 582 (if (listp (setq native-coding-system
583 (get-language-info language
584 'native-coding-system)))
585 native-coding-system
586 (list native-coding-system)))
582 ;; We don't have the appropriate POSIX locales to test with a 587 ;; We don't have the appropriate POSIX locales to test with a
583 ;; native-coding-system that is a function. 588 ;; native-coding-system that is a function.
584 (unless (functionp coding-system) 589 (unless (functionp coding-system)
585 (Assert (coding-system-p (find-coding-system coding-system)))))) 590 (Assert (coding-system-p (find-coding-system coding-system))))))
586 591