3 (luna-define-class test-riece (lunit-test-case))
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"))
13 (setq index (1+ index)))
14 (riece-shrink-buffer (current-buffer))
18 (apply #'concat (make-list 8 line))