New testcase.

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

diff --git a/lisp/test/test-riece-log.el b/lisp/test/test-riece-log.el
index e4105a0..fc14774 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)) '("." ".."))
@@ -23,10 +25,10 @@
   (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.txt" test-riece-log-directory)
+               (expand-file-name "19700102.txt" test-riece-log-directory)
                t 0)
   (write-region "03:14 <test> 1 2 3\n" nil
-               (expand-file-name "20380118.txt" test-riece-log-directory)
+               (expand-file-name "19700101.txt" test-riece-log-directory)
                t 0))
 
 (luna-define-method lunit-test-case-teardown ((case test-riece-log))
@@ -37,9 +39,9 @@
     (lunit-assert-2
      case
      (equal
-      (concat "03:14 <test> 1 2 3 (2038/01/18)\n"
-             "03:14 <test> a b c (2038/01/19)\n"
-             "03:15 <test> a b c (2038/01/19)\n")
+      (concat "03:14 <test> 1 2 3 (1970/01/01)\n"
+             "03:14 <test> a b c (1970/01/02)\n"
+             "03:15 <test> a b c (1970/01/02)\n")
       (with-temp-buffer
        (riece-log-insert (riece-make-identity "#riece" "") 3)
        (buffer-string))))))
@@ -129,7 +131,8 @@
        (riece-log-enabled t)
        riece-log-directory-map
        (riece-server-process-alist
-        (list (cons "" (start-process "" (current-buffer) "yes")))))
+        (list (cons "" (start-process "" (current-buffer) "true")))))
+    (put 'riece-log 'riece-addon-enabled t)
     (riece-log-display-message-function
      (riece-make-message
       (riece-make-identity "ueno" "")
@@ -138,8 +141,10 @@
                                   (make-char 'japanese-jisx0208 33 60)
                                   (make-char 'japanese-jisx0208 36 57))
                           "")
-      "a b c\n" nil t)))
-  (let (file-name-coding-system)
+      "a b c\n" nil t))
+    (put 'riece-log 'riece-addon-enabled nil))
+  (let (file-name-coding-system
+       default-file-name-coding-system)
     (lunit-assert-2
      case
      (file-directory-p