* test/test-riece-log.el
[elisp/riece.git] / lisp / test / test-riece-log.el
index 8f92dc9..fc14774 100644 (file)
        riece-log-directory-map
        (riece-server-process-alist
         (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" "")
                                   (make-char 'japanese-jisx0208 33 60)
                                   (make-char 'japanese-jisx0208 36 57))
                           "")
-      "a b c\n" nil t)))
+      "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