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)