Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv3178

Modified Files: base-test.lisp Log Message: Extended tests of indent-line and added one test of delete-indentation.

Date: Sun Feb 6 18:38:31 2005 Author: abakic

Index: climacs/base-test.lisp diff -u climacs/base-test.lisp:1.6 climacs/base-test.lisp:1.7 --- climacs/base-test.lisp:1.6 Sun Feb 6 17:33:50 2005 +++ climacs/base-test.lisp Sun Feb 6 18:38:31 2005 @@ -861,25 +861,44 @@ (let ((buffer (make-instance 'standard-buffer))) (insert-buffer-sequence buffer 0 " climacs ") (let ((m (make-instance 'standard-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 standard-buffer-indent-line.test-2 (let ((buffer (make-instance 'standard-buffer))) (insert-buffer-sequence buffer 0 " climacs ") (let ((m (make-instance 'standard-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 standard-buffer-indent-line.test-3 (let ((buffer (make-instance 'standard-buffer))) (insert-buffer-sequence buffer 0 " climacs ") (let ((m (make-instance 'standard-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 ") + +(deftest standard-buffer-delete-indentation.test-1 + (let ((buffer (make-instance 'standard-buffer))) + (insert-buffer-sequence buffer 0 " + climacs ") + (let ((m (make-instance 'standard-left-sticky-mark + :buffer buffer :offset 3))) + (delete-indentation m) + (values + (offset m) + (buffer-sequence buffer 0 (size buffer))))) + 1 " + climacs ")