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)