Merge r21-4-11-chise-0_20-=ucs.

[chise/xemacs-chise.git.1] / tests / automated / mule-tests.el

diff --git a/tests/automated/mule-tests.el b/tests/automated/mule-tests.el
index eb2317c..4d962b3 100644 (file)
--- a/tests/automated/mule-tests.el
+++ b/tests/automated/mule-tests.el
@@ -293,7 +293,9 @@ the Assert macro checks for correctness."
   ;;---------------------------------------------------------------
   (let* ((scaron (make-char 'latin-iso8859-2 57))
         (latin2-string (make-string 4 scaron))
-        (prefix (concat (file-name-as-directory (temp-directory)) latin2-string))
+        (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-2))
@@ -313,4 +315,16 @@ the Assert macro checks for correctness."
 
   ;; Add many more file operation tests here...
 
+  ;;---------------------------------------------------------------
+  ;; Test Unicode-related functions
+  ;;---------------------------------------------------------------
+  (let* ((scaron (make-char 'latin-iso8859-2 57)))
+    (loop for code in '(#x0000 #x2222 #x4444 #xffff) do
+      (progn
+       (set-ucs-char code scaron)
+       (Assert (eq scaron (ucs-char code)))))
+  
+    (Assert (eq nil (set-ucs-char #x1ffff scaron)))
+    (Check-Error wrong-type-argument (set-ucs-char -10000 scaron)))
+  
   )