Fri Apr  3 00:18:27 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * initial import
diff -rN -u old-kde.tests/kde.tests.mbd new-kde.tests/kde.tests.mbd
--- old-kde.tests/kde.tests.mbd	1970-01-01 01:00:00.000000000 +0100
+++ new-kde.tests/kde.tests.mbd	2014-10-30 07:21:31.000000000 +0100
@@ -0,0 +1,37 @@
+;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
+;;; Copyright 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
+;;;
+;;; Permission is hereby granted, free of charge, to any person
+;;; obtaining a copy of this software and associated documentation
+;;; files (the "Software"), to deal in the Software without
+;;; restriction, including without limitation the rights to use,
+;;; copy, modify, merge, publish, distribute, sublicense, and/or sell
+;;; copies of the Software, and to permit persons to whom the
+;;; Software is furnished to do so, subject to the following
+;;; conditions:
+;;;
+;;; The above copyright notice and this permission notice shall be
+;;; included in all copies or substantial portions of the Software.
+;;;
+;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+;;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+;;; OTHER DEALINGS IN THE SOFTWARE.
+;;;
+
+(in-package :sysdef-user)
+
+(define-system :kde.tests ()
+  (:version 0 0 1)
+  (:documentation "KDE unit tests.")
+  (:author "Tobias Rautenkranz")
+  (:needs :kde :FiveAM :qt.test)
+  (:components 
+  	("src" module
+            (:components "package"
+                         ("tests" (:needs "package"))
+                         ("click" (:needs "tests"))))))
diff -rN -u old-kde.tests/src/click.lisp new-kde.tests/src/click.lisp
--- old-kde.tests/src/click.lisp	1970-01-01 01:00:00.000000000 +0100
+++ new-kde.tests/src/click.lisp	2014-10-30 07:21:31.000000000 +0100
@@ -0,0 +1,22 @@
+(in-package :kde.tests)
+
+(5am:in-suite :kde.suite)
+
+(defclass my-widget (kde:push-button)
+  ()
+  (:metaclass smoke::smoke-wrapper-class))
+
+(5am:test click-test
+  "Test clicking a button."
+  (kde::with-kde ("hello" "hello-world" "0.0.1")
+      (let ((widget (make-instance 'my-widget))
+            (click-count 0))
+        (qt:connect-function widget "clicked()"
+                             #'(lambda ()
+                                 (incf click-count)))
+                             
+        (cxx:set-text widget "Click Me")
+
+        (5am:is (= 0 click-count))
+        (qt.test:test.mouse-click widget qt:+left-button+)
+        (5am:is (= 1 click-count)))))
diff -rN -u old-kde.tests/src/package.lisp new-kde.tests/src/package.lisp
--- old-kde.tests/src/package.lisp	1970-01-01 01:00:00.000000000 +0100
+++ new-kde.tests/src/package.lisp	2014-10-30 07:21:31.000000000 +0100
@@ -0,0 +1,3 @@
+(defpackage :kde.tests
+  (:use :cl :asdf)
+  (:export :run))
diff -rN -u old-kde.tests/src/tests.lisp new-kde.tests/src/tests.lisp
--- old-kde.tests/src/tests.lisp	1970-01-01 01:00:00.000000000 +0100
+++ new-kde.tests/src/tests.lisp	2014-10-30 07:21:31.000000000 +0100
@@ -0,0 +1,10 @@
+(in-package :kde.tests)
+
+(5am:def-suite :kde.suite)
+
+(5am:in-suite :kde.suite)
+
+(defun run ()
+  (let ((results (5am:run :kde.suite)))
+    (5am:explain! results)
+    (5am:results-status results)))