Update of /project/climacs/cvsroot/climacs/Persistent In directory common-lisp.net:/tmp/cvs-serv3178/Persistent
Modified Files: persistent-base-test.lisp Log Message: Extended tests of indent-line and added one test of delete-indentation.
Date: Sun Feb 6 18:38:32 2005 Author: abakic
Index: climacs/Persistent/persistent-base-test.lisp diff -u climacs/Persistent/persistent-base-test.lisp:1.6 climacs/Persistent/persistent-base-test.lisp:1.7 --- climacs/Persistent/persistent-base-test.lisp:1.6 Sun Feb 6 17:33:52 2005 +++ climacs/Persistent/persistent-base-test.lisp Sun Feb 6 18:38:32 2005 @@ -858,28 +858,34 @@ (let ((buffer (make-instance 'binseq-buffer))) (insert-buffer-sequence buffer 0 " climacs ") (let ((m (make-instance 'persistent-left-sticky-mark - :buffer buffer :offset 0))) + :buffer buffer :offset 3))) (indent-line m 4 nil) - (buffer-sequence buffer 0 (size buffer)))) - " climacs ") + (values + (offset m) + (buffer-sequence buffer 0 (size buffer))))) + 0 " climacs ")
(deftest binseq-buffer-indent-line.test-2 (let ((buffer (make-instance 'binseq-buffer))) (insert-buffer-sequence buffer 0 " climacs ") (let ((m (make-instance 'persistent-left-sticky-mark - :buffer buffer :offset 0))) + :buffer buffer :offset 4))) (indent-line m 5 4) - (buffer-sequence buffer 0 (size buffer)))) - " climacs ") + (values + (offset m) + (buffer-sequence buffer 0 (size buffer))))) + 3 " climacs ")
(deftest binseq-buffer-indent-line.test-3 (let ((buffer (make-instance 'binseq-buffer))) (insert-buffer-sequence buffer 0 " climacs ") (let ((m (make-instance 'persistent-right-sticky-mark - :buffer buffer :offset 0))) + :buffer buffer :offset 3))) (indent-line m 5 4) - (buffer-sequence buffer 0 (size buffer)))) - " climacs ") + (values + (offset m) + (buffer-sequence buffer 0 (size buffer))))) + 2 " climacs ")
;;; obinseq tests
@@ -1719,25 +1725,31 @@ (let ((buffer (make-instance 'obinseq-buffer))) (insert-buffer-sequence buffer 0 " climacs ") (let ((m (make-instance 'persistent-left-sticky-mark - :buffer buffer :offset 0))) + :buffer buffer :offset 3))) (indent-line m 4 nil) - (buffer-sequence buffer 0 (size buffer)))) - " climacs ") + (values + (offset m) + (buffer-sequence buffer 0 (size buffer))))) + 0 " climacs ")
(deftest obinseq-buffer-indent-line.test-2 (let ((buffer (make-instance 'obinseq-buffer))) (insert-buffer-sequence buffer 0 " climacs ") (let ((m (make-instance 'persistent-left-sticky-mark - :buffer buffer :offset 0))) + :buffer buffer :offset 4))) (indent-line m 5 4) - (buffer-sequence buffer 0 (size buffer)))) - " climacs ") + (values + (offset m) + (buffer-sequence buffer 0 (size buffer))))) + 3 " climacs ")
(deftest obinseq-buffer-indent-line.test-3 (let ((buffer (make-instance 'obinseq-buffer))) (insert-buffer-sequence buffer 0 " climacs ") (let ((m (make-instance 'persistent-right-sticky-mark - :buffer buffer :offset 0))) + :buffer buffer :offset 3))) (indent-line m 5 4) - (buffer-sequence buffer 0 (size buffer)))) - " climacs ") + (values + (offset m) + (buffer-sequence buffer 0 (size buffer))))) + 2 " climacs ")