[climacs-cvs] CVS update: climacs/base-test.lisp
Aleksandar Bakic
abakic at common-lisp.net
Sat Jan 29 22:23:13 UTC 2005
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)
More information about the Climacs-cvs
mailing list