Sun May 24 17:00:42 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Testrun examples on commit
hunk ./src/repl.lisp 15
+
hunk ./src/repl.lisp 21
- (cxx:set-data list-model (cxx:index list-model index)
- (qt:make-variant string))))
+ (unless (cxx:set-data list-model (cxx:index list-model index) string)
+ (error "set-data failed."))))
hunk ./src/repl.lisp 34
- (format nil "~S"
- (handler-case (eval (read-from-string (cxx:text (input repl))))
- (error (condition) condition))))
- (setf (cxx:text (input repl)) "")))
+ (write-to-string
+ (handler-case (eval (read-from-string
+ (cxx:text (input repl))))
+ (error (condition) condition))))
+ (cxx:clear (input repl))))
addfile ./test.lisp
hunk ./test.lisp 1
+#|
+exec -a "$0" sbcl --noinform --noprint --disable-debugger --load $0 --end-toplevel-options "$@"
+|#
+
+
+(in-package :sysdef-user)
+
+(defun load-sysdef (pathname system)
+ (load pathname)
+ (setf (mb.sysdef::pathname-of (find-system system)) pathname))
+
+(defun load-sysdef-file (system-name)
+ "Loads a mbd file in the current directory."
+ (load-sysdef (make-pathname :defaults *default-pathname-defaults*
+ :name (string-downcase system-name)
+ :type "mbd")
+ system-name))
+
+(load-sysdef-file :qt.examples)
+(mb:clean :qt.examples)
+(mb:test :qt.examples)
+
+(sb-ext:quit)
adddir ./tests
addfile ./tests/test.lisp
hunk ./tests/test.lisp 1
+(in-package :qt.examples)
+
+(let ((qt:*exec-p* nil))
+ (do-external-symbols (example :qt.examples)
+ (when (fboundp example)
+ (format *debug-io* "testing ~A~%"
+ (documentation (symbol-function example)
+ 'function))
+ (funcall (symbol-function example)))))
changepref test
sh ./test.lisp