[mcclim-cvs] CVS mcclim/Drei/Tests

thenriksen thenriksen at common-lisp.net
Sat Jan 26 00:23:40 UTC 2008


Update of /project/mcclim/cvsroot/mcclim/Drei/Tests
In directory clnet:/tmp/cvs-serv16402/Drei/Tests

Modified Files:
	buffer-tests.lisp 
Log Message:
Changed DELETE-BUFFER-REGION to use DELETE-ELEMENTS*.

Requires Flexichain 1.3 (currently, this means CVS).

Increases region-killing performance by more than a hundredfold for most cases.


--- /project/mcclim/cvsroot/mcclim/Drei/Tests/buffer-tests.lisp	2007/12/08 08:53:49	1.3
+++ /project/mcclim/cvsroot/mcclim/Drei/Tests/buffer-tests.lisp	2008/01/26 00:23:37	1.4
@@ -231,40 +231,40 @@
     (let ((m (make-buffer-mark buffer 3 :left))
 	  (m2 (make-buffer-mark buffer 5 :left)))
       (delete-region m m2)
-      (is (= (size buffer) 5))
+      (is (= 5 (size buffer)))
       (is (eq (buffer m) (buffer m2)))
-      (is (= (offset m) 3))
-      (is (= (offset m2) 3))
+      (is (= 3 (offset m)))
+      (is (= 3 (offset m2)))
       (is (string= (buffer-substring buffer 0 5) "clics"))))
   (let ((buffer (make-instance %%buffer)))
     (insert-buffer-sequence buffer 0 "climacs")
     (let ((m (make-buffer-mark buffer 3 :right))
 	  (m2 (make-buffer-mark buffer 5 :right)))
       (delete-region m m2)
-      (is (= (size buffer) 5))
+      (is (= 5 (size buffer)))
       (is (eq (buffer m) (buffer m2)))
-      (is (= (offset m) 3))
-      (is (= (offset m2) 3))
+      (is (= 3 (offset m)))
+      (is (= 3 (offset m2)))
       (is (string= (buffer-substring buffer 0 5) "clics"))))
   (let ((buffer (make-instance %%buffer)))
     (insert-buffer-sequence buffer 0 "climacs")
     (let ((m (make-buffer-mark buffer 3 :left))
           (m2 (make-buffer-mark buffer 5 :left)))
       (delete-region m2 m)
-      (is (= (size buffer) 5))
+      (is (= 5 (size buffer)))
       (is (eq (buffer m) (buffer m2)))
-      (is (= (offset m) 3))
-      (is (= (offset m2) 3))
+      (is (= 3 (offset m)))
+      (is (= 3 (offset m2)))
       (is (string= (buffer-substring buffer 0 5) "clics"))))
   (let ((buffer (make-instance %%buffer)))
     (insert-buffer-sequence buffer 0 "climacs")
     (let ((m (make-buffer-mark buffer 3 :right))
 	  (m2 (make-buffer-mark buffer 5 :right)))
       (delete-region m2 m)
-      (is (= (size buffer) 5))
+      (is (= 5 (size buffer)))
       (is (eq (buffer m) (buffer m2)))
-      (is (= (offset m) 3))
-      (is (= (offset m2) 3))
+      (is (= 3 (offset m)))
+      (is (= 3 (offset m2)))
       (is (string= (buffer-substring buffer 0 5) "clics"))))
   (signals error
     (let ((buffer (make-instance %%buffer))
@@ -280,11 +280,11 @@
 	  (m2 (make-buffer-mark buffer 5 :left)))
       (delete-region m 5)
       (delete-region 1 m2)
-      (is (= (size buffer) 3))
+      (is (= 3 (size buffer)))
       (is (eq (buffer m) (buffer m2)))
-      (is (= (offset m) 1))
-      (is (= (offset m2) 1))
-      (is (string= (buffer-substring buffer 0 3) "ccs")))))
+      (is (= 1 (offset m)))
+      (is (= 1 (offset m2)))
+      (is (string= "ccs" (buffer-substring buffer 0 3))))))
 
 (buffer-test number-of-lines
   (let ((buffer (make-instance %%buffer)))




More information about the Mcclim-cvs mailing list