[mcclim-cvs] CVS mcclim/Tests

[crhodes]

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