* test/test-riece-log.el (test-riece-log-delete-directory):

[riece] / lisp / test / test-riece-log.el

diff --git a/lisp/test/test-riece-log.el b/lisp/test/test-riece-log.el
index 7e2f591..8f2cccc 100644 (file)
--- 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)) '("." ".."))
@@ -19,22 +21,21 @@
                               (temp-directory)
                             temporary-file-directory))
        test-riece-log-directory
-       (expand-file-name "riece" riece-log-directory))
+       (expand-file-name "=23riece" riece-log-directory))
   (make-directory riece-log-directory)
   (make-directory test-riece-log-directory)
   (write-region "03:14 <test> a b c\n03:15 <test> a b c\n" nil
-               (expand-file-name "20380119.log" test-riece-log-directory)
+               (expand-file-name "20380119.txt" test-riece-log-directory)
                t 0)
   (write-region "03:14 <test> 1 2 3\n" nil
-               (expand-file-name "20380118.log" test-riece-log-directory)
+               (expand-file-name "20380118.txt" test-riece-log-directory)
                t 0))
 
 (luna-define-method lunit-test-case-teardown ((case test-riece-log))
   (test-riece-log-delete-directory riece-log-directory))
 
-(luna-define-method test-riece-log-flashback-1 ((case test-riece-log))
-  (let ((riece-log-flashback 3)
-       riece-log-directory-map)
+(luna-define-method test-riece-log-insert-1 ((case test-riece-log))
+  (let (riece-log-directory-map)
     (lunit-assert-2
      case
      (equal
@@ -42,17 +43,16 @@
              "03:14 <test> a b c (2038/01/19)\n"
              "03:15 <test> a b c (2038/01/19)\n")
       (with-temp-buffer
-       (riece-log-flashback (riece-make-identity "#riece" ""))
+       (riece-log-insert (riece-make-identity "#riece" "") 3)
        (buffer-string))))))
 
-(luna-define-method test-riece-log-flashback-2 ((case test-riece-log))
-  (let ((riece-log-flashback t)
-       riece-log-directory-map)
+(luna-define-method test-riece-log-insert-2 ((case test-riece-log))
+  (let (riece-log-directory-map)
     (lunit-assert-2
      case
      (equal ""
            (with-temp-buffer
-             (riece-log-flashback (riece-make-identity "#riece" ""))
+             (riece-log-insert (riece-make-identity "#riece" "") t)
              (buffer-string))))))
 
 (luna-define-method test-riece-log-encode-file-name ((case test-riece-log))
@@ -124,3 +124,33 @@
                    (make-char 'japanese-jisx0208 36 57))
            (riece-log-decode-file-name
             "=23=1B=24B=24j=21=3C=249=1B=28B")))))
+
+(luna-define-method test-riece-log-display-message-function
+  ((case test-riece-log))
+  (let ((riece-log-file-name-coding-system 'euc-jp)
+       (riece-log-enabled t)
+       riece-log-directory-map
+       (riece-server-process-alist
+        (list (cons "" (start-process "" (current-buffer) "yes")))))
+    (riece-log-display-message-function
+     (riece-make-message
+      (riece-make-identity "ueno" "")
+      (riece-make-identity (format "#%c%c%c"
+                                  (make-char 'japanese-jisx0208 36 106)
+                                  (make-char 'japanese-jisx0208 33 60)
+                                  (make-char 'japanese-jisx0208 36 57))
+                          "")
+      "a b c\n" nil t)))
+  (let (file-name-coding-system
+       default-file-name-coding-system)
+    (lunit-assert-2
+     case
+     (file-directory-p
+      (expand-file-name
+       (encode-coding-string
+       (format "=23%c%c%c"
+               (make-char 'japanese-jisx0208 36 106)
+               (make-char 'japanese-jisx0208 33 60)
+               (make-char 'japanese-jisx0208 36 57))
+       'euc-jp)
+       riece-log-directory)))))