Update of /project/mcclim/cvsroot/mcclim/Drei/Tests In directory clnet:/tmp/cvs-serv15234/Drei/Tests
Modified Files: editing-tests.lisp Log Message: Changed Drei tests to give more sensible information on errors.
--- /project/mcclim/cvsroot/mcclim/Drei/Tests/editing-tests.lisp 2007/08/15 10:03:32 1.2 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/editing-tests.lisp 2007/08/20 19:44:19 1.3 @@ -39,13 +39,13 @@ (let ((mark (clone-mark (point buffer) mark-stickto))) (setf (offset mark) offset) (funcall action buffer mark) - (is (string= (buffer-contents buffer) - end-contents)) + (is (string= end-contents + (buffer-contents buffer))) ;; `kill-ring-end-contents' is a list of what should ;; be at the top of the kill ring now. Assert that ;; it is. (handler-case (mapcar #'(lambda (killed-string expected) - (is (string= killed-string expected))) + (is (string= expected killed-string))) (loop repeat (length kill-ring-end-contents) collecting (coerce (kill-ring-yank kill-ring nil) 'string) do (rotate-yank-position kill-ring 1))