You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
655 B
Scheme
24 lines
655 B
Scheme
27 years ago
|
;; test-gui.ss
|
||
|
|
;; ----------------------------------------------------------------------
|
||
|
|
|
||
|
|
(define test-gui-shake-reps 25)
|
||
|
|
|
||
|
|
(define (shake-test-files) test-files)
|
||
|
|
|
||
|
|
;; ----------------------------------------------------------------------
|
||
|
|
|
||
|
|
(define (test-gui-file f)
|
||
|
|
(printf "FILE: ~s~n" f)
|
||
|
|
(let* ([ftd (list f (lambda () (open-input-file f)) #t)]
|
||
|
|
[ftd* (list ftd)])
|
||
|
|
(send spidey do-and-show-analysis ftd*)
|
||
|
|
(for i 0 test-gui-shake-reps
|
||
|
|
(printf "Iteration ~s/~s~n" i test-gui-shake-reps)
|
||
|
|
(send spidey shake-it))
|
||
|
|
(send spidey close-all-frames)))
|
||
|
|
|
||
|
|
(define (test-gui)
|
||
|
|
(for-each test-gui-file (shake-test-files)))
|
||
|
|
|
||
|
|
|