From: ueno <ueno>
Date: Wed, 8 Dec 2004 09:46:06 +0000 (+0000)
Subject: * test/test-riece-log.el (test-riece-log-delete-directory):
X-Git-Tag: riece-1_0_7~100
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=123744759c43984496cbc52926c43090f15fba6e;p=elisp%2Friece.git

* test/test-riece-log.el (test-riece-log-delete-directory):
Suppress file-name encoding.

* test/test-riece-log.el
(test-riece-log-display-message-function): New test case.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c46faae..515fa51 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2004-12-08  Daiki Ueno  <ueno@unixuser.org>
 
+	* test/test-riece-log.el (test-riece-log-delete-directory):
+	Suppress file-name encoding.
+
 	* riece-log.el (riece-log-get-directory): Fixed bug in
 	riece-log-directory-map handling.
 
diff --git a/lisp/test/test-riece-log.el b/lisp/test/test-riece-log.el
index e4105a0..8f2cccc 100644
--- a/lisp/test/test-riece-log.el
+++ b/lisp/test/test-riece-log.el
@@ -3,7 +3,9 @@
 (luna-define-class test-riece-log (lunit-test-case))
 
 (defun test-riece-log-delete-directory (directory)
-  (let ((files (directory-files directory t nil t)))
+  (let (file-name-coding-system
+	default-file-name-coding-system
+	 (files (directory-files directory t nil t)))
     (while files
       (if (file-directory-p (car files))
 	  (unless (member (file-name-nondirectory (car files)) '("." ".."))
@@ -139,7 +141,8 @@
 				   (make-char 'japanese-jisx0208 36 57))
 			   "")
       "a b c\n" nil t)))
-  (let (file-name-coding-system)
+  (let (file-name-coding-system
+	default-file-name-coding-system)
     (lunit-assert-2
      case
      (file-directory-p