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