[mcclim-cvs] CVS mcclim/Drei/Tests

[thenriksen]

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))