CVS update by aidan xemacs/tests/automated ...
xemacs-cvs at xemacs.org
xemacs-cvs at xemacs.org
Sun May 20 16:09:41 EDT 2007
User: aidan
Date: 07/05/20 22:09:41
Modified: xemacs/tests/automated mule-tests.el
Log:
Test that all listed langenv input methods exist; comment out those we can't
support while using 21.4 to compile our packages.
Revision Changes Path
1.799 +22 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.798
retrieving revision 1.799
diff -u -p -r1.798 -r1.799
--- ChangeLog 2007/05/20 16:04:10 1.798
+++ ChangeLog 2007/05/20 20:09:20 1.799
@@ -1,3 +1,25 @@
+2007-05-20 Aidan Kehoe <kehoea at parhasard.net>
+
+ * mule/devanagari.el ("Devanagari"):
+ * mule/ethiopic.el ("Ethiopic"):
+ * mule/hebrew.el ("Hebrew"):
+ * mule/lao.el ("Lao"):
+ * mule/tibetan.el ("Tibetan"):
+ * mule/vietnamese.el ("Vietnamese"):
+ The Hebrew input method we don't provide, for less than stellar
+ reasons; we should reconsider when and if we get bidi support.
+ The other input methods require changes to mule-category.el that
+ 21.4 doesn't have, and as such supporting them in the packages is
+ mostly impossible. I've commented out the references to them in
+ the corresponding language environment.
+
+ * mule/mule-category.el (define-category):
+ Add an optional argument to define-category, taken from GNU; it's
+ still only a partial implementation, though. This whole file is
+ chaos.
+ * mule/mule-category.el (make-category-table): New.
+ Trivial implementation, for GNU compatibility.
+
2007-05-20 Stephen J. Turnbull <stephen at xemacs.org>
* gutter-items.el (progress-feedback-with-label): Clarify docstring.
1.4 +2 -1 XEmacs/xemacs/lisp/mule/devanagari.el
Index: devanagari.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/devanagari.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- devanagari.el 2002/03/16 10:39:05 1.3
+++ devanagari.el 2007/05/20 20:09:29 1.4
@@ -62,7 +62,8 @@
"Devanagari" '((charset indian-is13194 indian-2-column indian-1-column)
(coding-system in-is13194-devanagari)
(coding-priority in-is13194-devanagari)
- (input-method . "devanagari-itrans")
+ ;; Not available in packages.
+ ; (input-method . "devanagari-itrans")
(features devan-util)
(documentation . "\
Such languages using Devanagari script as Hindi and Marathi
1.8 +1 -1 XEmacs/xemacs/lisp/mule/ethiopic.el
Index: ethiopic.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/ethiopic.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- ethiopic.el 2006/11/05 22:31:37 1.7
+++ ethiopic.el 2007/05/20 20:09:29 1.8
@@ -78,7 +78,7 @@
(charset ethiopic)
(coding-system iso-2022-7bit)
(coding-priority iso-2022-7bit)
- (input-method . "ethiopic")
+ ;; (input-method . "ethiopic")
(features ethio-util)
(sample-text . "$(3$Q#U!.(B")
(documentation . t)))
1.5 +2 -1 XEmacs/xemacs/lisp/mule/hebrew.el
Index: hebrew.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/hebrew.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- hebrew.el 2002/03/16 10:39:06 1.4
+++ hebrew.el 2007/05/20 20:09:29 1.5
@@ -73,7 +73,8 @@
"Hebrew" '((charset hebrew-iso8859-8)
(coding-system iso-8859-8)
(coding-priority iso-8859-8)
- (input-method . "hebrew")
+ ;; Not available in packages.
+ ;; (input-method . "hebrew")
(sample-text . "Hebrew [2],Hylem[0](B")
(documentation . "Right-to-left writing is not yet supported.")
))
1.6 +1 -1 XEmacs/xemacs/lisp/mule/lao.el
Index: lao.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/lao.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- lao.el 2006/11/05 22:31:37 1.5
+++ lao.el 2007/05/20 20:09:29 1.6
@@ -62,7 +62,7 @@
"Lao" '((charset lao)
(coding-system lao)
(coding-priority lao)
- (input-method . "lao")
+ ;; (input-method . "lao")
(nonascii-translation . lao)
(unibyte-display . lao)
(features lao-util)
1.10 +12 -3 XEmacs/xemacs/lisp/mule/mule-category.el
Index: mule-category.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/mule-category.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- mule-category.el 2002/08/02 16:54:25 1.9
+++ mule-category.el 2007/05/20 20:09:29 1.10
@@ -37,13 +37,18 @@
(defvar defined-category-hashtable (make-hash-table :size 50))
-(defun define-category (designator doc-string)
+(defun define-category (designator doc-string &optional table)
"Make a new category whose designator is DESIGNATOR.
DESIGNATOR should be a visible letter of ' ' thru '~'.
-STRING is a doc string for the category.
-Letters of 'a' thru 'z' are already used or kept for the system."
+DOC-STRING is a doc string for the category.
+Letters of 'a' thru 'z' are already used or kept for the system.
+The category should be defined only in category table TABLE, which defaults
+to the current buffer's category table, but this is not implemented. "
+ ;; #### Implement the limiting of the definition.
(check-argument-type 'category-designator-p designator)
(check-argument-type 'stringp doc-string)
+ (setq table (or table (category-table)))
+ (check-argument-type 'category-table-p table)
(puthash designator doc-string defined-category-hashtable))
(defun undefine-category (designator)
@@ -141,6 +146,10 @@ The categories are given by their design
(unwind-protect
(progn , at body)
(set-category-table current-category-table))))
+
+(defun make-category-table ()
+ "Construct a new and empty category table and return it."
+ (make-char-table 'category))
(defun describe-category ()
"Describe the category specifications in the category table.
1.5 +2 -1 XEmacs/xemacs/lisp/mule/tibetan.el
Index: tibetan.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/tibetan.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- tibetan.el 2006/11/05 22:31:38 1.4
+++ tibetan.el 2007/05/20 20:09:30 1.5
@@ -136,7 +136,8 @@
"Tibetan" '((charset tibetan tibetan-1-column)
(coding-system tibetan-iso-8bit)
(coding-priority iso-2022-7bit tibetan-iso-8bit)
- (input-method . "tibetan-wylie")
+ ;; Not available in packages.
+ ;; (input-method . "tibetan-wylie")
(features tibet-util)
(documentation . t)
(sample-text
1.8 +2 -1 XEmacs/xemacs/lisp/mule/vietnamese.el
Index: vietnamese.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/vietnamese.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- vietnamese.el 2006/11/05 22:31:38 1.7
+++ vietnamese.el 2007/05/20 20:09:30 1.8
@@ -331,7 +331,8 @@ Both tables are indexed by the position
(coding-system viscii vscii viqr)
(coding-priority viscii)
(locale "vietnamese" "vi")
- (input-method . "vietnamese-viqr")
+ ;; Not available in packages.
+ ;; (input-method . "vietnamese-viqr")
(features viet-util)
(sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt) Ch,1`(Bo b,1U(Bn")
(documentation . "\
1.91 +8 -0 XEmacs/xemacs/tests/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/ChangeLog,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -p -r1.90 -r1.91
--- ChangeLog 2007/05/13 11:11:37 1.90
+++ ChangeLog 2007/05/20 20:09:37 1.91
@@ -1,3 +1,11 @@
+2007-05-20 Aidan Kehoe <kehoea at parhasard.net>
+
+ * automated/mule-tests.el:
+ Make the file name coding system tests work on OS X.
+ Check various slots of the language environment structure to make
+ sure they're well formed--we've been shipping without a Turkish or
+ Latin-10 input method for years, for example, which is an error.
+
2007-04-30 Aidan Kehoe <kehoea at parhasard.net>
* automated/mule-tests.el (featurep):
1.17 +24 -8 XEmacs/xemacs/tests/automated/mule-tests.el
Index: mule-tests.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/automated/mule-tests.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -p -r1.16 -r1.17
--- mule-tests.el 2007/05/13 11:11:38 1.16
+++ mule-tests.el 2007/05/20 20:09:40 1.17
@@ -327,23 +327,26 @@ This is a naive implementation in Lisp.
;;---------------------------------------------------------------
;; Test file-system character conversion (and, en passant, file ops)
;;---------------------------------------------------------------
- (let* ((scaron (make-char 'latin-iso8859-2 57))
- (latin2-string (make-string 4 scaron))
+ (let* ((dstroke (make-char 'latin-iso8859-2 80))
+ (latin2-string (make-string 4 dstroke))
(prefix (concat (file-name-as-directory
(file-truename (temp-directory)))
latin2-string))
- (name1 (make-temp-name prefix))
- (name2 (make-temp-name prefix))
(file-name-coding-system
;; 'iso-8859-X doesn't work on darwin (as of "Panther" 10.3), it
;; seems to know that file-name-coding-system is definitely utf-8
(if (string-match "darwin" system-configuration)
'utf-8
'iso-8859-2))
- )
+ ;; make-temp-name does stat(), which on OS X requires that you
+ ;; normalise, where open() will normalise for you. Previously we
+ ;; used scaron as the Latin-2 character, and make-temp-name errored
+ ;; on OS X. LATIN CAPITAL LETTER D WITH STROKE does decompose.
+ (name1 (make-temp-name prefix))
+ (name2 (make-temp-name prefix)))
+ ;; This is how you suppress output from `message', called by `write-region'
(Assert (not (equal name1 name2)))
(Assert (not (file-exists-p name1)))
- ;; This is how you suppress output from `message', called by `write-region'
(Silence-Message
(write-region (point-min) (point-max) name1))
(Assert (file-exists-p name1))
@@ -352,9 +355,8 @@ This is a naive implementation in Lisp.
(Assert (file-exists-p name2))
(Assert (equal (file-truename name2) name1))
(Assert (equal (file-truename name1) name1)))
+ (ignore-file-errors (delete-file name1) (delete-file name2)))
- (ignore-file-errors (delete-file name1) (delete-file name2)))
-
;; Add many more file operation tests here...
;;---------------------------------------------------------------
@@ -475,6 +477,20 @@ This is a naive implementation in Lisp.
hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212
katakana-jisx0201 korean-ksc5601 latin-iso8859-1
latin-iso8859-2 thai-xtis vietnamese-viscii-lower))))
+
+ ;; Language environments.
+ (dolist (language (mapcar 'car language-info-alist))
+ (set-language-environment language)
+ (Assert (equal language current-language-environment))
+ (set-input-method (get-language-info language 'input-method))
+ (Assert (equal (get-language-info language 'input-method)
+ current-input-method))
+ (dolist (charset (get-language-info language 'charset))
+ (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 'coding-system))
+ (Assert (coding-system-p (find-coding-system coding-system)))))
(with-temp-buffer
(flet
More information about the XEmacs-CVS
mailing list