[mcclim-cvs] CVS mcclim/Drei/Tests

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei/Tests
In directory clnet:/tmp/cvs-serv27220/Tests

Modified Files:
	core-tests.lisp 
Log Message:
Improved `delete-indentation', now does the intuitive thing.


--- /project/mcclim/cvsroot/mcclim/Drei/Tests/core-tests.lisp	2006/12/04 07:54:51	1.1
+++ /project/mcclim/cvsroot/mcclim/Drei/Tests/core-tests.lisp	2007/02/12 19:32:57	1.2
@@ -363,6 +363,28 @@
       (buffer-is #. (format nil "~A~A~A~A~A I am to be indented"
                             #\Tab #\Tab #\Tab #\Tab #\Tab)))))
 
+(test delete-indentation
+  (with-drei-environment (:initial-contents "")
+    (delete-indentation *current-syntax* *current-point*)
+    (buffer-is ""))
+  (with-drei-environment (:initial-contents "Foo")
+    (delete-indentation *current-syntax* *current-point*)
+    (buffer-is "Foo"))
+  (with-drei-environment (:initial-contents " Foo")
+    (delete-indentation *current-syntax* *current-point*)
+    (buffer-is "Foo"))
+  (with-drei-environment (:initial-contents "   	Foo  ")
+    (delete-indentation *current-syntax* *current-point*)
+    (buffer-is "Foo  "))
+  (with-drei-environment (:initial-contents "   Foo  
+  Bar
+ Baz")
+    (forward-line *current-point* *current-syntax*)
+    (delete-indentation *current-syntax* *current-point*)
+    (buffer-is "   Foo  
+Bar
+ Baz")))
+
 (test set-syntax
   (dolist (syntax-designator `("Lisp" drei-lisp-syntax::lisp-syntax
                                       ,(find-class 'drei-lisp-syntax::lisp-syntax)))