* test/test-riece-ruby.el (lunit-test-case-teardown): Rest

riece-ruby-output-handler-alist and riece-ruby-output-queue-alist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a28945e..1a12b64 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,9 @@
 
 2005-08-29  Daiki Ueno  <ueno@unixuser.org>
 
+       * test/test-riece-ruby.el (lunit-test-case-teardown): Rest
+       riece-ruby-output-handler-alist and riece-ruby-output-queue-alist.
+
        * 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/riece-ruby.el b/lisp/riece-ruby.el
index 97f4e5b..a58b4f7 100644 (file)
--- a/lisp/riece-ruby.el
+++ b/lisp/riece-ruby.el
@@ -243,7 +243,7 @@ Use `riece-ruby-set-property' to set this variable.")
                                       (format "%s-output-handler" name))
                                     (cdr handler-entry) name output time)
       (if entry
-         (setcdr entry (cons output (cdr entry)))
+         (setcdr entry (cons (cons output time) (cdr entry)))
        (setq riece-ruby-output-queue-alist
              (cons (list name (cons output time))
                    riece-ruby-output-queue-alist))))))

diff --git a/lisp/test/test-riece-ruby.el b/lisp/test/test-riece-ruby.el
index ca99573..3c2a8f5 100644 (file)
--- a/lisp/test/test-riece-ruby.el
+++ b/lisp/test/test-riece-ruby.el
@@ -3,6 +3,8 @@
 (luna-define-class test-riece-ruby (lunit-test-case))
 
 (luna-define-method lunit-test-case-teardown ((case test-riece-ruby))
+  (setq riece-ruby-output-handler-alist nil
+       riece-ruby-output-queue-alist nil)
   (riece-ruby-execute "exit!")
   (sleep-for 1))
 
@@ -95,4 +97,4 @@
        (setq test-riece-ruby-output-handler-2 output)))
     (lunit-assert-2
      case
-     (equal test-riece-ruby-output-handler-2 "4294967296"))))
\ No newline at end of file
+     (equal test-riece-ruby-output-handler-2 "4294967296"))))