tests
Sun May 24 17:00:42 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Testrun examples on commit
diff -rN -u old-qt.examples/tests/test.lisp new-qt.examples/tests/test.lisp
--- old-qt.examples/tests/test.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.examples/tests/test.lisp 2014-10-30 07:38:18.000000000 +0100
@@ -0,0 +1,9 @@
+(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)))))