cgit.sxemacs.org Git - riece/blob - lisp/test/test-riece.el

   1 (require 'riece)
   2
   3 (luna-define-class test-riece (lunit-test-case))
   4
   5 (luna-define-method test-riece-shrink-buffer ((case test-riece))
   6   (let* ((riece-max-buffer-size 255)
   7          (riece-shrink-buffer-remove-chars 128)
   8          (line (concat (make-string 15 ? ) "\n"))
   9          (index 0))
  10     (with-temp-buffer
  11       (while (< index 16)
  12         (insert line)
  13         (setq index (1+ index)))
  14       (riece-shrink-buffer (current-buffer))
  15       (lunit-assert-2
  16        case
  17        (equal
  18         (apply #'concat (make-list 8 line))
  19         (buffer-string))))))