Fixed.

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

diff --git a/lisp/test/test-riece-log.el b/lisp/test/test-riece-log.el
index 70eee62..b432b09 100644 (file)
--- a/lisp/test/test-riece-log.el
+++ b/lisp/test/test-riece-log.el
@@ -19,14 +19,14 @@
                               (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))
@@ -61,12 +61,10 @@
      case
      (equal "=23riece"
            (riece-log-encode-file-name "#riece")))
-    (message "!!! %S" (riece-log-encode-file-name "#riece:*.jp"))
     (lunit-assert-2
      case
      (equal "=23riece=3A=2A=2Ejp"
            (riece-log-encode-file-name "#riece:*.jp")))
-    (message "%S" (riece-log-encode-file-name "#riece="))
     (lunit-assert-2
      case
      (equal "=23riece=="