From: ueno Date: Mon, 29 Aug 2005 06:28:43 +0000 (+0000) Subject: * test/test-riece-ruby.el (lunit-test-case-teardown): Rest X-Git-Tag: riece-2_0_0~2 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=65909b9d2d6f10040cbab0d23ac051ca11efc289;p=elisp%2Friece.git * 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 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,9 @@ 2005-08-29 Daiki Ueno + * 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 --- 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 --- 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"))))