[climacs-cvs] CVS update: climacs/Persistent/persistent-base-test.lisp

[Aleksandar Bakic]

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   ")