X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fautomated%2Fmule-tests.el;h=4d962b39f4edd10f342d84dac5ab03619535fd93;hb=36cfe085da5b3d6c90cd5a9d3f431ef28f9dd6f4;hp=b73163c953ac37142f70d2d5209fc7613623673d;hpb=3890a2e3064a7f562107c58e59d928284ec04741;p=chise%2Fxemacs-chise.git

diff --git a/tests/automated/mule-tests.el b/tests/automated/mule-tests.el
index b73163c..4d962b3 100644
--- a/tests/automated/mule-tests.el
+++ b/tests/automated/mule-tests.el
@@ -293,12 +293,15 @@ 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))
     ;; This is how you suppress output from `message', called by `write-region'
     (flet ((append-message (&rest args) ()))
+      (Assert (not (equal name1 name2)))
       (Assert (not (file-exists-p name1)))
       (write-region (point-min) (point-max) name1)
       (Assert (file-exists-p name1))
@@ -312,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)))
+  
   )