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

[Aleksandar Bakic]

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

Modified Files:
	buffer-test.lisp 
Log Message:
And end-of-line bug fix and related cleanup.

Date: Tue Mar 15 19:41:18 2005
Author: abakic

Index: climacs/buffer-test.lisp
diff -u climacs/buffer-test.lisp:1.19 climacs/buffer-test.lisp:1.20
--- climacs/buffer-test.lisp:1.19	Sun Mar 13 21:51:48 2005
+++ climacs/buffer-test.lisp	Tue Mar 15 19:41:18 2005
@@ -703,6 +703,19 @@
 	   (progn (end-of-line m) (end-of-line-p m)))))
   t)
 
+(defmultitest end-of-line.test-2
+  (let ((buffer (make-instance %%buffer)))
+    (insert-buffer-sequence buffer 0 "climacs
+")
+    (let ((m (clone-mark (low-mark buffer) :left)))
+      (setf (offset m) 1)
+      (and (not (end-of-line-p m))
+	   (progn (end-of-line m)
+		  (values
+		   (= (offset m) 7)
+		   (buffer-object (buffer m) (offset m)))))))
+  t #\Newline)
+
 (defmultitest beginning-of-buffer.test-1
   (let ((buffer (make-instance %%buffer)))
     (insert-buffer-sequence buffer 0 "climacs