Update of /project/climacs/cvsroot/climacs/Persistent In directory common-lisp.net:/tmp/cvs-serv20755/Persistent

Modified Files: persistent-base-test.lisp Log Message: Test updates.

Date: Sat Jan 29 14:23:17 2005 Author: abakic

Index: climacs/Persistent/persistent-base-test.lisp diff -u climacs/Persistent/persistent-base-test.lisp:1.3 climacs/Persistent/persistent-base-test.lisp:1.4 --- climacs/Persistent/persistent-base-test.lisp:1.3 Fri Jan 28 10:47:34 2005 +++ climacs/Persistent/persistent-base-test.lisp Sat Jan 29 14:23:14 2005 @@ -622,10 +622,10 @@

(deftest binseq-buffer-downcase-buffer-region.test-1 (let ((buffer (make-instance 'binseq-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 binseq-buffer-downcase-region.test-1 (let ((buffer (make-instance 'binseq-buffer))) @@ -658,21 +658,21 @@

(deftest binseq-buffer-downcase-word.test-1 (let ((buffer (make-instance 'binseq-buffer))) - (insert-buffer-sequence buffer 0 "CLI MA CS") + (insert-buffer-sequence buffer 0 "CLI MA CS CLIMACS") (let ((m (make-instance 'persistent-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 binseq-buffer-upcase-buffer-region.test-1 (let ((buffer (make-instance 'binseq-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 binseq-buffer-upcase-region.test-1 (let ((buffer (make-instance 'binseq-buffer))) @@ -705,21 +705,21 @@

(deftest binseq-buffer-upcase-word.test-1 (let ((buffer (make-instance 'binseq-buffer))) - (insert-buffer-sequence buffer 0 "cli ma cs") + (insert-buffer-sequence buffer 0 "cli ma cs climacs") (let ((m (make-instance 'persistent-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 binseq-buffer-capitalize-buffer-region.test-1 (let ((buffer (make-instance 'binseq-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 binseq-buffer-capitalize-buffer-region.test-2 (let ((buffer (make-instance 'binseq-buffer))) @@ -759,14 +759,14 @@

(deftest binseq-buffer-capitalize-word.test-1 (let ((buffer (make-instance 'binseq-buffer))) - (insert-buffer-sequence buffer 0 "cli ma cs") + (insert-buffer-sequence buffer 0 "cli ma cs climacs") (let ((m (make-instance 'persistent-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)

;;; obinseq tests

@@ -1370,10 +1370,10 @@

(deftest obinseq-buffer-downcase-buffer-region.test-1 (let ((buffer (make-instance 'obinseq-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 obinseq-buffer-downcase-region.test-1 (let ((buffer (make-instance 'obinseq-buffer))) @@ -1417,10 +1417,10 @@

(deftest obinseq-buffer-upcase-buffer-region.test-1 (let ((buffer (make-instance 'obinseq-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 obinseq-buffer-upcase-region.test-1 (let ((buffer (make-instance 'obinseq-buffer))) @@ -1467,7 +1467,7 @@ (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 obinseq-buffer-capitalize-buffer-region.test-2 (let ((buffer (make-instance 'obinseq-buffer)))