From: ueno <ueno>
Date: Mon, 29 Aug 2005 06:35:43 +0000 (+0000)
Subject: * test/test-riece-log.el
X-Git-Tag: riece-2_0_0~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d4548fd711c61eec7921f13094ddf96396599351;p=elisp%2Friece.git

* test/test-riece-log.el
(test-riece-log-display-message-function): Enable riece-log addon.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1a12b64..7de0b55 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,6 +8,9 @@
 	* test/test-riece-ruby.el (lunit-test-case-teardown): Rest
 	riece-ruby-output-handler-alist and riece-ruby-output-queue-alist.
 
+	* test/test-riece-log.el
+	(test-riece-log-display-message-function): Enable riece-log addon.
+
 	* riece-server.el (riece-server-keyword-map): Abolished
 	:coding-system-alist keyword.
 	(riece-send-string): Take the target identity as the 2nd argument.
diff --git a/lisp/test/test-riece-log.el b/lisp/test/test-riece-log.el
index 8f92dc9..fc14774 100644
--- a/lisp/test/test-riece-log.el
+++ b/lisp/test/test-riece-log.el
@@ -132,6 +132,7 @@
 	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" "")
@@ -140,7 +141,8 @@
 				   (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