repos
/
repl
/ annotate_normal
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
modular smoke & cl-smoke prefix.
Annotate for file /test.lisp
2009-06-06 tobias
1
;;; sbcl < test.lisp
'
2
;;;
'
3
;;; somehow #'LOADing the test file hangs WITH-APP!?
'
4
;;; Thus the pipe
'
5
;;;
'
6
2010-01-07 tobias
7
(require :cl-smoke.repl)
2009-06-06 tobias
8
'
9
(in-package :cl-smoke.repl)
'
10
'
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)))
'
21
'
22
(test-event-loop-in-background)
'
23
'
24
(print "success")
'
25
'
26
(sb-ext:quit)