suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

macro stepper tests: updated

Browse Source 
svn: r13133

original commit: 92a938dc6dee5cc1f255135639a36f478c08151e
This commit is contained in:
Ryan Culpepper 2009-01-15 00:07:47 +00:00
parent b99ae65e0d
commit ab36883dfa
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/macro-debugger/gui-tests.ss
View File

@ -207,7 +207,8 @@
(sleep 1) (sleep 1)
(parameterize ((current-eventspace (make-eventspace))) (parameterize ((current-eventspace (make-eventspace)))
(let ([frame (new macro-stepper-frame% (let ([frame (new macro-stepper-frame%
(config (new macro-stepper-config/prefs/readonly%)))]) (config (new macro-stepper-config/prefs/readonly%))
(director (new macro-stepper-director%)))])
(send frame show #t) (send frame show #t)
frame))) frame)))
@ -270,4 +271,4 @@
(send frame get-eventspace)))))))))) (send frame get-eventspace))))))))))
(define (test-stepper expr) (define (test-stepper expr)
(test-stepper* (list expr) '(none basic normal)))) (test-stepper* (list expr) '(none basic normal)))