Fri Apr 3 00:15:29 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
addfile ./qt.test.mbd
hunk ./qt.test.mbd 1
+;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
+
+(in-package :sysdef-user)
+
+(define-system :qt.test ()
+ (:version 0 0 1)
+ (:documentation "Qt Test module for GUI testing.")
+ (:keywords "test" "testing" "GUI")
+ (:author "Tobias Rautenkranz")
+ (:components
+ ("src" module
+ (:components
+ "package"
+ ("qt.test" (:needs "package")))))
+ (:needs :qt))
adddir ./src
addfile ./src/package.lisp
hunk ./src/package.lisp 1
+(defpackage :qt.test
+ (:use :cl :asdf :smoke :cffi)
+ (:export))
+
addfile ./src/qt.test.lisp
hunk ./src/qt.test.lisp 1
+(in-package :qt.test)
+
+(eval-when (:load-toplevel :compile-toplevel)
+ (define-foreign-library libsmokeqttest
+ (:unix "libsmokeqttest.so.2")
+ (t (:default "libsmokeqttest")))
+ (use-foreign-library libsmokeqttest)
+
+ (defcvar "qttest_Smoke" :pointer
+ "The Smoke Qt binding")
+
+ (defcfun (init-qttest-smoke "_Z17init_qttest_Smokev") :void)
+
+ (defvar *binding* (null-pointer))
+
+ (init-qttest-smoke)
+
+ (when (null-pointer-p *binding*)
+ (setf *binding* (init *qttest-smoke*))))
+; (make-smoke-classes *qttest-smoke*)))
+
+(define-methods *qttest-smoke*)