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

[Aleksandar Bakic]

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