Import Riece subtree

[packages] / xemacs-packages / riece / lisp / test / test-riece-shrink-buffer.el

diff --git a/xemacs-packages/riece/lisp/test/test-riece-shrink-buffer.el b/xemacs-packages/riece/lisp/test/test-riece-shrink-buffer.el
new file mode 100644 (file)
index 0000000..2da1008
--- /dev/null
+++ b/xemacs-packages/riece/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))))))