3 ;;; somehow #'LOADing the test file hangs WITH-APP!?
7 (require :cl-smoke.repl)
9 (in-package :cl-smoke.repl)
11 (defun test-event-loop-in-background ()
12 (start-event-loop-in-background)
13 (qt-eval '(defvar *w* (make-instance 'qt:push-button)))
14 (qt-eval '(cxx:show *w*))
15 (qt-eval '(setf (cxx:text *w*) "Hello World!"))
16 (qt-eval '(assert (string= "Hello World!" (cxx:text *w*))))
17 (qt-eval '(cxx:adjust-size *w*))
18 (qt-eval '(in-package :smoke))
19 (qt-eval '(assert (eql (find-package :smoke) *package*)))
20 (qt-eval '(end-event-loop)))
22 (test-event-loop-in-background)