Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv19196 Modified Files: buffer-test.lisp Log Message: And end-of-line bug fix and related cleanup. Date: Tue Mar 15 19:41:18 2005 Author: abakic Index: climacs/buffer-test.lisp diff -u climacs/buffer-test.lisp:1.19 climacs/buffer-test.lisp:1.20 --- climacs/buffer-test.lisp:1.19 Sun Mar 13 21:51:48 2005 +++ climacs/buffer-test.lisp Tue Mar 15 19:41:18 2005 @@ -703,6 +703,19 @@ (progn (end-of-line m) (end-of-line-p m))))) t) +(defmultitest end-of-line.test-2 + (let ((buffer (make-instance %%buffer))) + (insert-buffer-sequence buffer 0 "climacs +") + (let ((m (clone-mark (low-mark buffer) :left))) + (setf (offset m) 1) + (and (not (end-of-line-p m)) + (progn (end-of-line m) + (values + (= (offset m) 7) + (buffer-object (buffer m) (offset m))))))) + t #\Newline) + (defmultitest beginning-of-buffer.test-1 (let ((buffer (make-instance %%buffer))) (insert-buffer-sequence buffer 0 "climacs