Renamed.

diff --git a/lisp/test/Makefile.am b/lisp/test/Makefile.am
index 7f76af1..620aa6a 100644 (file)
--- 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 (file)
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 (file)
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))))))