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

Aleksandar Bakic abakic at common-lisp.net
Sat Jan 29 22:23:21 UTC 2005


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




More information about the Climacs-cvs mailing list