src
Fri Apr 3 00:18:27 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
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:35.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:35.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:35.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)))