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

[Aleksandar Bakic]

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

Modified Files:
	persistent-buffer-test.lisp 
Log Message:
Changed region-to-sequence to be symmetrical wrt. marks.

Date: Sat Feb  5 14:49:23 2005
Author: abakic

Index: climacs/Persistent/persistent-buffer-test.lisp
diff -u climacs/Persistent/persistent-buffer-test.lisp:1.3 climacs/Persistent/persistent-buffer-test.lisp:1.4
--- climacs/Persistent/persistent-buffer-test.lisp:1.3	Fri Jan 28 19:47:34 2005
+++ climacs/Persistent/persistent-buffer-test.lisp	Sat Feb  5 14:49:23 2005
@@ -724,6 +724,14 @@
       (and (not (eq seq seq2)) seq2)))
   "climacs")
 
+(deftest binseq-buffer-region-to-sequence.test-1aa
+  (let ((seq "climacs")
+	(buffer (make-instance 'binseq-buffer)))
+    (insert-buffer-sequence buffer 0 seq)
+    (let ((seq2 (region-to-sequence (high-mark buffer) 0)))
+      (and (not (eq seq seq2)) seq2)))
+  "climacs")
+
 (deftest binseq-buffer-region-to-sequence.test-1b
   (let ((seq "climacs")
 	(buffer (make-instance 'binseq-buffer)))
@@ -732,12 +740,20 @@
       (and (not (eq seq seq2)) seq2)))
   "climacs")
 
+(deftest binseq-buffer-region-to-sequence.test-1ba
+  (let ((seq "climacs")
+	(buffer (make-instance 'binseq-buffer)))
+    (insert-buffer-sequence buffer 0 seq)
+    (let ((seq2 (region-to-sequence 7 (low-mark buffer))))
+      (and (not (eq seq seq2)) seq2)))
+  "climacs")
+
 (deftest binseq-buffer-region-to-sequence.test-2
   (let ((seq "climacs")
 	(buffer (make-instance 'binseq-buffer)))
     (insert-buffer-sequence buffer 0 seq)
     (region-to-sequence (high-mark buffer) (low-mark buffer)))
-  #())
+  "climacs")
 
 (deftest binseq-buffer-region-to-sequence.test-3
   (handler-case
@@ -1453,6 +1469,14 @@
       (and (not (eq seq seq2)) seq2)))
   "climacs")
 
+(deftest obinseq-buffer-region-to-sequence.test-1aa
+  (let ((seq "climacs")
+	(buffer (make-instance 'obinseq-buffer)))
+    (insert-buffer-sequence buffer 0 seq)
+    (let ((seq2 (region-to-sequence (high-mark buffer) 0)))
+      (and (not (eq seq seq2)) seq2)))
+  "climacs")
+
 (deftest obinseq-buffer-region-to-sequence.test-1b
   (let ((seq "climacs")
 	(buffer (make-instance 'obinseq-buffer)))
@@ -1461,12 +1485,20 @@
       (and (not (eq seq seq2)) seq2)))
   "climacs")
 
+(deftest obinseq-buffer-region-to-sequence.test-1ba
+  (let ((seq "climacs")
+	(buffer (make-instance 'obinseq-buffer)))
+    (insert-buffer-sequence buffer 0 seq)
+    (let ((seq2 (region-to-sequence 7 (low-mark buffer))))
+      (and (not (eq seq seq2)) seq2)))
+  "climacs")
+
 (deftest obinseq-buffer-region-to-sequence.test-2
   (let ((seq "climacs")
 	(buffer (make-instance 'obinseq-buffer)))
     (insert-buffer-sequence buffer 0 seq)
     (region-to-sequence (high-mark buffer) (low-mark buffer)))
-  #())
+  "climacs")
 
 (deftest obinseq-buffer-region-to-sequence.test-3
   (handler-case
@@ -1696,4 +1728,4 @@
      for i from 0 below 100000
      do (insert-buffer-sequence b (floor (size b) 2) "abcdefghij")
      finally (return (size b)))
-  1000000)
\ No newline at end of file
+  1000000)