[mcclim-cvs] CVS mcclim/Drei/Tests

[thenriksen]

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

Modified Files:
	core-tests.lisp lisp-syntax-tests.lisp 
Log Message:
Improved Forward Expression and fixed minor bug in Drei test suite.


--- /project/mcclim/cvsroot/mcclim/Drei/Tests/core-tests.lisp	2007/12/08 08:53:49	1.6
+++ /project/mcclim/cvsroot/mcclim/Drei/Tests/core-tests.lisp	2008/01/19 20:06:01	1.7
@@ -453,6 +453,6 @@
       (backward-object mark2)
       (dolist (low (list 2 mark1))
         (dolist (high (list (- (size (current-buffer)) 2) mark2))
-          (with-narrowed-buffer (*drei-instance* low high t)
+          (with-narrowed-buffer ((drei-instance) low high t)
             (is (= (offset (point)) 2))
             (is (= (offset (mark)) (- (size (current-buffer)) 2)))))))))
--- /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp	2008/01/13 17:10:24	1.14
+++ /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp	2008/01/19 20:06:01	1.15
@@ -828,7 +828,9 @@
   (nil nil (5 18 2)
       "#+nil (list 1 2 3)")
   (nil nil (0 2 nil)
-      "#+nil (list 1 2 3)"))
+      "#+nil (list 1 2 3)")
+  (nil nil (6 7 3)
+      "  (nil)  "))
 
 (motion-fun-one-test (list lisp-syntax)
   (64 4 (22 41 11)