From 56f51b0a893dd4e20e1c34a2c38d2d9f3b5cddf0 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 29 Aug 2005 06:14:37 +0000 Subject: [PATCH] Renamed. --- lisp/test/Makefile.am | 6 +++--- lisp/test/test-riece-shrink-buffer.el | 19 +++++++++++++++++++ lisp/test/test-riece.el | 19 ------------------- 3 files changed, 22 insertions(+), 22 deletions(-) create mode 100644 lisp/test/test-riece-shrink-buffer.el delete mode 100644 lisp/test/test-riece.el diff --git a/lisp/test/Makefile.am b/lisp/test/Makefile.am index 7f76af1..620aa6a 100644 --- a/lisp/test/Makefile.am +++ b/lisp/test/Makefile.am @@ -1,4 +1,4 @@ EXTRA_DIST = luna.el lunit.el lunit-report.el \ - test-riece.el test-riece-addon.el test-riece-alias.el \ - test-riece-eval.el test-riece-log.el test-riece-url.el \ - test-riece-yank.el + test-riece-addon.el test-riece-alias.el \ + test-riece-eval.el test-riece-log.el test-riece-shrink-buffer.el \ + test-riece-url.el test-riece-yank.el diff --git a/lisp/test/test-riece-shrink-buffer.el b/lisp/test/test-riece-shrink-buffer.el new file mode 100644 index 0000000..2da1008 --- /dev/null +++ b/lisp/test/test-riece-shrink-buffer.el @@ -0,0 +1,19 @@ +(require 'riece-shrink-buffer) + +(luna-define-class test-riece-shrink-buffer (lunit-test-case)) + +(luna-define-method test-riece-shrink-buffer ((case test-riece-shrink-buffer)) + (let* ((riece-max-buffer-size 255) + (riece-shrink-buffer-remove-chars 128) + (line (concat (make-string 15 ? ) "\n")) + (index 0)) + (with-temp-buffer + (while (< index 16) + (insert line) + (setq index (1+ index))) + (riece-shrink-buffer (current-buffer)) + (lunit-assert-2 + case + (equal + (apply #'concat (make-list 8 line)) + (buffer-string)))))) diff --git a/lisp/test/test-riece.el b/lisp/test/test-riece.el deleted file mode 100644 index d5d2cbc..0000000 --- a/lisp/test/test-riece.el +++ /dev/null @@ -1,19 +0,0 @@ -(require 'riece) - -(luna-define-class test-riece (lunit-test-case)) - -(luna-define-method test-riece-shrink-buffer ((case test-riece)) - (let* ((riece-max-buffer-size 255) - (riece-shrink-buffer-remove-chars 128) - (line (concat (make-string 15 ? ) "\n")) - (index 0)) - (with-temp-buffer - (while (< index 16) - (insert line) - (setq index (1+ index))) - (riece-shrink-buffer (current-buffer)) - (lunit-assert-2 - case - (equal - (apply #'concat (make-list 8 line)) - (buffer-string)))))) -- 1.7.10.4