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

Modified Files: commands.lisp input-editing.lisp postscript.lisp regions.lisp Added Files: run-tests.lisp Log Message: Improve test workflow a little bit: can now just load run-tests.lisp

--- /project/mcclim/cvsroot/mcclim/Tests/commands.lisp 2006/04/21 12:03:23 1.4 +++ /project/mcclim/cvsroot/mcclim/Tests/commands.lisp 2007/05/04 11:24:07 1.5 @@ -1,6 +1,3 @@ -(defpackage :clim-tests - (:use :clim-lisp :clim)) - (in-package :clim-tests)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; --- /project/mcclim/cvsroot/mcclim/Tests/input-editing.lisp 2006/04/25 10:16:13 1.2 +++ /project/mcclim/cvsroot/mcclim/Tests/input-editing.lisp 2007/05/04 11:24:07 1.3 @@ -1,6 +1,3 @@ -(defpackage :clim-tests - (:use :clim-lisp :clim)) - (in-package :clim-tests)

(assert (null *activation-gestures*)) --- /project/mcclim/cvsroot/mcclim/Tests/postscript.lisp 2006/03/07 14:59:29 1.2 +++ /project/mcclim/cvsroot/mcclim/Tests/postscript.lisp 2007/05/04 11:24:07 1.3 @@ -1,6 +1,4 @@ -(defpackage :clim-postscript-tests - (:use :clim :clim-lisp)) -(in-package :clim-postscript-tests) +(in-package :clim-tests)

(let ((psfilename "/tmp/clim-postscript-test.ps") (epsfilename "/tmp/clim-postscript-test.eps")) --- /project/mcclim/cvsroot/mcclim/Tests/regions.lisp 2006/03/06 16:09:12 1.5 +++ /project/mcclim/cvsroot/mcclim/Tests/regions.lisp 2007/05/04 11:24:07 1.6 @@ -1,6 +1,3 @@ -(defpackage :clim-tests - (:use :clim-lisp :clim)) - (in-package :clim-tests)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

--- /project/mcclim/cvsroot/mcclim/Tests/run-tests.lisp 2007/05/04 11:24:08 NONE +++ /project/mcclim/cvsroot/mcclim/Tests/run-tests.lisp 2007/05/04 11:24:08 1.1 (defpackage :clim-tests (:use :clim-lisp :clim))

(let ((files (remove *load-pathname* (directory (merge-pathnames (make-pathname :name :wild) *load-pathname*)) :test #'equal))) (dolist (f files) (handler-case (load f) (error (c) (format *error-output* "~@<Error in file ~S:~2I~_~A~@:>" f c)))))