[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-serv3430/Persistent

Modified Files:
	persistent-buffer-test.lisp 
Log Message:
Added a few tests for forward/backward-object.

Date: Sat Feb  5 22:34:44 2005
Author: abakic

Index: climacs/Persistent/persistent-buffer-test.lisp
diff -u climacs/Persistent/persistent-buffer-test.lisp:1.5 climacs/Persistent/persistent-buffer-test.lisp:1.6
--- climacs/Persistent/persistent-buffer-test.lisp:1.5	Sat Feb  5 21:59:51 2005
+++ climacs/Persistent/persistent-buffer-test.lisp	Sat Feb  5 22:34:44 2005
@@ -496,6 +496,52 @@
       (= (climacs-buffer::condition-offset c) -1)))
   t)
 
+(deftest binseq-buffer-backward-object.test-1
+  (let ((buffer (make-instance 'binseq-buffer)))
+    (insert-buffer-sequence buffer 0 "climacs")
+    (let* ((m1 (make-instance 'persistent-left-sticky-mark
+			      :buffer buffer :offset 4))
+	   (m2 (clone-mark m1)))
+      (backward-object m1 2)
+      (region-to-sequence m1 m2)))
+  "im")
+
+(deftest binseq-buffer-backward-object.test-2
+  (handler-case
+      (let ((buffer (make-instance 'binseq-buffer)))
+	(insert-buffer-sequence buffer 0 "climacs")
+	(let* ((m1 (make-instance 'persistent-right-sticky-mark
+				  :buffer buffer :offset 2))
+	       (m2 (clone-mark m1)))
+	  (backward-object m1 3)
+	  (region-to-sequence m1 m2)))
+    (climacs-buffer::no-such-offset (c)
+      (= (climacs-buffer::condition-offset c) -1)))
+  t)
+
+(deftest binseq-buffer-forward-object.test-1
+  (let ((buffer (make-instance 'binseq-buffer)))
+    (insert-buffer-sequence buffer 0 "climacs")
+    (let* ((m1 (make-instance 'persistent-left-sticky-mark
+			      :buffer buffer :offset 4))
+	   (m2 (clone-mark m1)))
+      (forward-object m1 2)
+      (region-to-sequence m1 m2)))
+  "ac")
+
+(deftest binseq-buffer-forward-object.test-2
+  (handler-case
+      (let ((buffer (make-instance 'binseq-buffer)))
+	(insert-buffer-sequence buffer 0 "climacs")
+	(let* ((m1 (make-instance 'persistent-right-sticky-mark
+				  :buffer buffer :offset 6))
+	       (m2 (clone-mark m1)))
+	  (forward-object m1 3)
+	  (region-to-sequence m1 m2)))
+    (climacs-buffer::no-such-offset (c)
+      (= (climacs-buffer::condition-offset c) 9)))
+  t)
+
 (deftest binseq-buffer-mark<.test-1
   (handler-case
       (let ((buffer (make-instance 'binseq-buffer))
@@ -1262,6 +1308,52 @@
 	(setf (buffer-object buffer -1) #\a))
     (climacs-buffer::no-such-offset (c)
       (= (climacs-buffer::condition-offset c) -1)))
+  t)
+
+(deftest obinseq-buffer-backward-object.test-1
+  (let ((buffer (make-instance 'obinseq-buffer)))
+    (insert-buffer-sequence buffer 0 "climacs")
+    (let* ((m1 (make-instance 'persistent-left-sticky-mark
+			      :buffer buffer :offset 4))
+	   (m2 (clone-mark m1)))
+      (backward-object m1 2)
+      (region-to-sequence m1 m2)))
+  "im")
+
+(deftest obinseq-buffer-backward-object.test-2
+  (handler-case
+      (let ((buffer (make-instance 'obinseq-buffer)))
+	(insert-buffer-sequence buffer 0 "climacs")
+	(let* ((m1 (make-instance 'persistent-right-sticky-mark
+				  :buffer buffer :offset 2))
+	       (m2 (clone-mark m1)))
+	  (backward-object m1 3)
+	  (region-to-sequence m1 m2)))
+    (climacs-buffer::no-such-offset (c)
+      (= (climacs-buffer::condition-offset c) -1)))
+  t)
+
+(deftest obinseq-buffer-forward-object.test-1
+  (let ((buffer (make-instance 'obinseq-buffer)))
+    (insert-buffer-sequence buffer 0 "climacs")
+    (let* ((m1 (make-instance 'persistent-left-sticky-mark
+			      :buffer buffer :offset 4))
+	   (m2 (clone-mark m1)))
+      (forward-object m1 2)
+      (region-to-sequence m1 m2)))
+  "ac")
+
+(deftest obinseq-buffer-forward-object.test-2
+  (handler-case
+      (let ((buffer (make-instance 'obinseq-buffer)))
+	(insert-buffer-sequence buffer 0 "climacs")
+	(let* ((m1 (make-instance 'persistent-right-sticky-mark
+				  :buffer buffer :offset 6))
+	       (m2 (clone-mark m1)))
+	  (forward-object m1 3)
+	  (region-to-sequence m1 m2)))
+    (climacs-buffer::no-such-offset (c)
+      (= (climacs-buffer::condition-offset c) 9)))
   t)
 
 (deftest obinseq-buffer-mark<.test-1