;;; sbcl < test.lisp
;;;
;;; somehow #'LOADing the test file hangs WITH-APP!?
;;; Thus the pipe
;;;
(require :cl-smoke.repl)
(in-package :cl-smoke.repl)
(defun test-event-loop-in-background ()
  (start-event-loop-in-background)
  (qt-eval '(defvar *w* (make-instance 'qt:push-button)))
  (qt-eval '(cxx:show *w*))
  (qt-eval '(setf (cxx:text *w*) "Hello World!"))
  (qt-eval '(assert (string= "Hello World!" (cxx:text *w*))))
  (qt-eval '(cxx:adjust-size *w*))
  (qt-eval '(in-package :smoke))
  (qt-eval '(assert (eql (find-package :smoke) *package*)))
  (qt-eval '(end-event-loop)))
(test-event-loop-in-background)
(print "success")
(sb-ext:quit)