Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv20755 Modified Files: base-test.lisp Log Message: Test updates. Date: Sat Jan 29 14:23:09 2005 Author: abakic Index: climacs/base-test.lisp diff -u climacs/base-test.lisp:1.3 climacs/base-test.lisp:1.4 --- climacs/base-test.lisp:1.3 Fri Jan 28 10:47:29 2005 +++ climacs/base-test.lisp Sat Jan 29 14:23:08 2005 @@ -577,10 +577,10 @@ (deftest standard-buffer-delete-word.test-2 (let ((buffer (make-instance 'standard-buffer))) - (insert-buffer-sequence buffer 0 " climacs") + (insert-buffer-sequence buffer 0 " climacs climacs") (let ((m (make-instance 'standard-right-sticky-mark :buffer buffer :offset 0))) - (delete-word m) + (delete-word m 2) (values (buffer-sequence buffer 0 (size buffer)) (offset m)))) @@ -599,10 +599,10 @@ (deftest standard-buffer-backward-delete-word.test-2 (let ((buffer (make-instance 'standard-buffer))) - (insert-buffer-sequence buffer 0 "climacs ") + (insert-buffer-sequence buffer 0 "climacs climacs ") (let ((m (make-instance 'standard-right-sticky-mark - :buffer buffer :offset 9))) - (backward-delete-word m) + :buffer buffer :offset 17))) + (backward-delete-word m 2) (values (buffer-sequence buffer 0 (size buffer)) (offset m)))) @@ -625,10 +625,10 @@ (deftest standard-buffer-downcase-buffer-region.test-1 (let ((buffer (make-instance 'standard-buffer))) - (insert-buffer-sequence buffer 0 "Cli mac5") - (climacs-base::downcase-buffer-region buffer 0 (size buffer)) + (insert-buffer-sequence buffer 0 "CLi mac5") + (climacs-base::downcase-buffer-region buffer 1 (size buffer)) (buffer-sequence buffer 0 (size buffer))) - "cli mac5") + "Cli mac5") (deftest standard-buffer-downcase-region.test-1 (let ((buffer (make-instance 'standard-buffer))) @@ -661,21 +661,21 @@ (deftest standard-buffer-downcase-word.test-1 (let ((buffer (make-instance 'standard-buffer))) - (insert-buffer-sequence buffer 0 "CLI MA CS") + (insert-buffer-sequence buffer 0 "CLI MA CS CLIMACS") (let ((m (make-instance 'standard-right-sticky-mark :buffer buffer :offset 0))) (downcase-word m 3) (values (buffer-sequence buffer 0 (size buffer)) (offset m)))) - "cli ma cs" 9) + "cli ma cs CLIMACS" 9) (deftest standard-buffer-upcase-buffer-region.test-1 (let ((buffer (make-instance 'standard-buffer))) - (insert-buffer-sequence buffer 0 "Cli mac5") - (climacs-base::upcase-buffer-region buffer 0 (size buffer)) + (insert-buffer-sequence buffer 0 "cli mac5") + (climacs-base::upcase-buffer-region buffer 1 (size buffer)) (buffer-sequence buffer 0 (size buffer))) - "CLI MAC5") + "cLI MAC5") (deftest standard-buffer-upcase-region.test-1 (let ((buffer (make-instance 'standard-buffer))) @@ -708,21 +708,21 @@ (deftest standard-buffer-upcase-word.test-1 (let ((buffer (make-instance 'standard-buffer))) - (insert-buffer-sequence buffer 0 "cli ma cs") + (insert-buffer-sequence buffer 0 "cli ma cs climacs") (let ((m (make-instance 'standard-right-sticky-mark :buffer buffer :offset 0))) (upcase-word m 3) (values (buffer-sequence buffer 0 (size buffer)) (offset m)))) - "CLI MA CS" 9) + "CLI MA CS climacs" 9) (deftest standard-buffer-capitalize-buffer-region.test-1 (let ((buffer (make-instance 'standard-buffer))) (insert-buffer-sequence buffer 0 "cli ma cs") (climacs-base::capitalize-buffer-region buffer 1 (size buffer)) (buffer-sequence buffer 0 (size buffer))) - "cli Ma Cs") + "cLi Ma Cs") (deftest standard-buffer-capitalize-buffer-region.test-2 (let ((buffer (make-instance 'standard-buffer))) @@ -762,11 +762,11 @@ (deftest standard-buffer-capitalize-word.test-1 (let ((buffer (make-instance 'standard-buffer))) - (insert-buffer-sequence buffer 0 "cli ma cs") + (insert-buffer-sequence buffer 0 "cli ma cs climacs") (let ((m (make-instance 'standard-right-sticky-mark :buffer buffer :offset 0))) (capitalize-word m 3) (values (buffer-sequence buffer 0 (size buffer)) (offset m)))) - "Cli Ma Cs" 9) + "Cli Ma Cs climacs" 9)