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

more adjustment of the drracket test suites to avoid using os-given focus information

Browse Source 
also increase the timeout of the io.rkt test
This commit is contained in:
Robby Findler 2011-09-05 14:12:09 -05:00
parent 14e62f6caf
commit cda12b39ed
9 changed files with 20 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/meta/props
View File

@ -1432,7 +1432,7 @@ path/s is either such a string or a list of them.
"collects/tests/drracket/example-tool.rkt" drdr:command-line (gracket "-t" *)
"collects/tests/drracket/get-defs-test.rkt" drdr:command-line (gracket *)
"collects/tests/drracket/hangman.rkt" responsible (robby matthias) drdr:command-line (gracket *)
"collects/tests/drracket/io.rkt" drdr:command-line (gracket *)
"collects/tests/drracket/io.rkt" drdr:command-line (gracket *) drdr:timeout 500
"collects/tests/drracket/language-test.rkt" responsible (robby matthias) drdr:command-line (gracket *) drdr:timeout 600
"collects/tests/drracket/leaky-frame.rkt" drdr:command-line (gracket *)
"collects/tests/drracket/memory-log.rkt" drdr:command-line (gracket *)

8
collects/tests/drracket/language-test.rkt
View File

@ -1107,10 +1107,10 @@ the settings above should match r5rs
(define (test-setting set-setting setting-name expression result)
(set-language #f)
(set-setting)
(let ([f (get-top-level-focus-window)])
(let ([f (test:get-active-top-level-window)])
(fw:test:button-push "OK")
(wait-for-new-frame f))
(let* ([drs (get-top-level-focus-window)]
(let* ([drs (test:get-active-top-level-window)]
[interactions (send drs get-interactions-text)])
(clear-definitions drs)
(type-in-definitions drs expression)
@ -1124,7 +1124,7 @@ the settings above should match r5rs
(define (test-hash-bang)
(let* ([expression "#!/bin/sh\n1"]
[result "1"]
[drs (get-top-level-focus-window)]
[drs (test:get-active-top-level-window)]
[interactions (queue-callback (λ () (send drs get-interactions-text)))])
(clear-definitions drs)
(type-in-definitions drs expression)
@ -1235,7 +1235,7 @@ the settings above should match r5rs
(fw:test:set-check-box!
"Insert newlines in printed values"
pretty?)
(let ([f (get-top-level-focus-window)])
(let ([f (test:get-active-top-level-window)])
(fw:test:button-push "OK")
(wait-for-new-frame f)))]
[shorten

4
collects/tests/drracket/module-lang-test-utils.rkt
View File

@ -147,7 +147,7 @@
(set-module-language! #f)
(test:set-radio-box-item! "Debugging")
(let ([f (queue-callback/res (λ () (get-top-level-focus-window)))])
(let ([f (queue-callback/res (λ () (test:get-active-top-level-window)))])
(test:button-push "OK")
(wait-for-new-frame f))
@ -163,7 +163,7 @@
(define (setup-dialog/run proc)
(set-module-language! #f)
(proc)
(let ([f (get-top-level-focus-window)])
(let ([f (test:get-active-top-level-window)])
(test:button-push "OK")
(wait-for-new-frame f))
(do-execute drs)

11
collects/tests/drracket/private/randomly-click.rkt
View File

@ -69,7 +69,7 @@
(send area get-label)]))
(define (g open-dialog)
(let ((base-window (get-top-level-focus-window)))
(let ((base-window (test:get-active-top-level-window)))
(open-dialog)
(wait-for-different-frame base-window)
(let loop ([n numButtonsToPush]
@ -84,7 +84,7 @@
(when (= 1 (modulo n 10)) (printf "\n"))
(flush-output)
(let ((window (get-top-level-focus-window)))
(let ((window (test:get-active-top-level-window)))
(cond
;; Back to base-window is not interesting, Reopen
[(eq? base-window window)
@ -92,9 +92,6 @@
(wait-for-different-frame base-window)
(loop (- n 1) actions)]
;; get-top-level-focus-window returns #f may imply window not in current eventspace
;; but it also might just mean we didn't look into subeventspaces(?)
;; or that we need to wait for something to happen in the GUI(?)
[(eq? window #f)
(sleep .1)
(loop (- n 1) actions)]
@ -137,7 +134,7 @@
;; the splash screen is in a separate eventspace so wont' show up.
(define (wait-for-first-frame)
(let loop ()
(let ([tlw (get-top-level-focus-window)])
(let ([tlw (test:get-active-top-level-window)])
(cond
[(not tlw)
(sleep 1/20)
@ -151,7 +148,7 @@
[(zero? n)
(error 'wait-for-different-frame "never got that new window, only this one: ~s" win)]
[else
(let ([tlw (get-top-level-focus-window)])
(let ([tlw (test:get-active-top-level-window)])
(when (eq? win tlw)
(sleep 1/10)
(loop (- n 1))))])))

4
collects/tests/drracket/repl-test.rkt
View File

@ -1336,7 +1336,7 @@ This produces an ACK message
(begin
(set-language-level! level #f)
(test:set-radio-box-item! "No debugging or profiling")
(let ([f (get-top-level-focus-window)])
(let ([f (test:get-active-top-level-window)])
(test:button-push "OK")
(wait-for-new-frame f)))]
[(debug)
@ -1345,7 +1345,7 @@ This produces an ACK message
(begin
(set-language-level! level #f)
(test:set-radio-box-item! "Debugging and profiling")
(let ([f (get-top-level-focus-window)])
(let ([f (test:get-active-top-level-window)])
(test:button-push "OK")
(wait-for-new-frame f)))])

2
collects/tests/drracket/sample-solutions-one-window.rkt
View File

@ -110,7 +110,7 @@
(custodian-shutdown-all cust))))
(let ([wait-for-kill-window
(lambda ()
(let ([f (get-top-level-focus-window)])
(let ([f (test:get-active-top-level-window)])
(and f (equal? (send f get-label)
"Evaluation Terminated"))))])
(poll-until wait-for-kill-window)

6
collects/tests/drracket/teachpack.rkt
View File

@ -109,11 +109,11 @@
(lambda ()
(let ([active
(or
(get-top-level-focus-window)
(test:get-active-top-level-window)
(and (send interactions-text get-user-eventspace)
(parameterize ([current-eventspace
(send interactions-text get-user-eventspace)])
(get-top-level-focus-window))))])
(test:get-active-top-level-window))))])
(if (and active (not (eq? active drs-frame)))
active
#f)))])
@ -198,7 +198,7 @@
(fw:test:menu-select "Language" "Clear All Teachpacks")
(fw:test:menu-select "Language" "Add Teachpack...")
(wait-for-new-frame drs-frame)
(let* ([tp-dialog (get-top-level-focus-window)]
(let* ([tp-dialog (test:get-active-top-level-window)]
[choice (find/select-relevant-choice tp-dialog (path->string teachpack))])
(fw:test:button-push "OK")
(wait-for-new-frame tp-dialog))

4
collects/tests/drracket/test-engine-test.rkt
View File

@ -201,10 +201,10 @@
(define (test-setting set-setting setting-name expression result)
(set-language #f)
(set-setting)
(let ([f (get-top-level-focus-window)])
(let ([f (test:get-active-top-level-window)])
(fw:test:button-push "OK")
(wait-for-new-frame f))
(let* ([drs (get-top-level-focus-window)]
(let* ([drs (test:get-active-top-level-window)]
[interactions (send drs get-interactions-text)])
(clear-definitions drs)
(type-in-definitions drs expression)

2
collects/tests/drracket/time-keystrokes.rkt
View File

@ -41,7 +41,7 @@
(let loop ([n 10])
(when (zero? n)
(error 'time-keystrokes "could not find drscheme frame"))
(let ([front-frame (get-top-level-focus-window)])
(let ([front-frame (test:get-active-top-level-window)])
(unless (eq? front-frame frame)
(sleep 1/10)
(loop (- n 1)))))