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

adjust the timeouts to two drracket tests and add a little syncronization help in a third

Browse Source
This commit is contained in:
Robby Findler 2012-05-31 10:45:05 -05:00
parent f10a258dcb
commit f721c0427d
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/meta/props
View File

@ -1444,7 +1444,7 @@ path/s is either such a string or a list of them.
"collects/tests/drracket/leaky-frame.rkt" drdr:command-line (gracket *) "collects/tests/drracket/leaky-frame.rkt" drdr:command-line (gracket *)
"collects/tests/drracket/memory-log.rkt" drdr:command-line (gracket *) "collects/tests/drracket/memory-log.rkt" drdr:command-line (gracket *)
"collects/tests/drracket/module-lang-test-utils.rkt" drdr:command-line (gracket-text "-t" *) "collects/tests/drracket/module-lang-test-utils.rkt" drdr:command-line (gracket-text "-t" *)
"collects/tests/drracket/module-lang-test.rkt" drdr:command-line (gracket "-j" "-e" "(void (putenv \"PLTDRDRTEST\" \"yes\"))" "-t" *) drdr:timeout 300 "collects/tests/drracket/module-lang-test.rkt" drdr:command-line (gracket "-j" "-e" "(void (putenv \"PLTDRDRTEST\" \"yes\"))" "-t" *) drdr:timeout 400
"collects/tests/drracket/randomly-click-language-dialog.rkt" drdr:command-line (mzc *) "collects/tests/drracket/randomly-click-language-dialog.rkt" drdr:command-line (mzc *)
"collects/tests/drracket/randomly-click-preferences.rkt" drdr:command-line (mzc *) "collects/tests/drracket/randomly-click-preferences.rkt" drdr:command-line (mzc *)
"collects/tests/drracket/randomly-click.rkt" drdr:command-line #f "collects/tests/drracket/randomly-click.rkt" drdr:command-line #f
@ -1458,7 +1458,7 @@ path/s is either such a string or a list of them.
"collects/tests/drracket/snip/run-all.rkt" drdr:timeout 400 "collects/tests/drracket/snip/run-all.rkt" drdr:timeout 400
"collects/tests/drracket/snips.rkt" drdr:command-line (gracket *) "collects/tests/drracket/snips.rkt" drdr:command-line (gracket *)
"collects/tests/drracket/stepper-test.rkt" drdr:command-line (gracket-text "-t" *) "collects/tests/drracket/stepper-test.rkt" drdr:command-line (gracket-text "-t" *)
"collects/tests/drracket/syncheck-test.rkt" drdr:command-line (gracket *) "collects/tests/drracket/syncheck-test.rkt" drdr:command-line (gracket *) drdr:timeout 200
"collects/tests/drracket/teaching-lang-coverage.rkt" responsible (robby matthias) drdr:command-line (gracket *) "collects/tests/drracket/teaching-lang-coverage.rkt" responsible (robby matthias) drdr:command-line (gracket *)
"collects/tests/drracket/teaching-lang-save-file.rkt" responsible (robby matthias) drdr:command-line (gracket *) "collects/tests/drracket/teaching-lang-save-file.rkt" responsible (robby matthias) drdr:command-line (gracket *)
"collects/tests/drracket/teachpack.rkt" responsible (robby matthias) drdr:command-line (gracket *) "collects/tests/drracket/teachpack.rkt" responsible (robby matthias) drdr:command-line (gracket *)

2
collects/tests/drracket/incremental-keybindings-test.rkt
View File

@ -56,6 +56,8 @@ to DrRacket and then tries out the keystrokes.
(send defs set-position (send defs last-position) (send defs last-position)))) (send defs set-position (send defs last-position) (send defs last-position))))
(test:keystroke #\c '(control)) (test:keystroke #\c '(control))
(test:keystroke #\e '(control)) (test:keystroke #\e '(control))
(queue-callback/res void)
(sync (system-idle-evt))
(wait-for-computation drs-frame) (wait-for-computation drs-frame)
(define got2 (get-repl-contents)) (define got2 (get-repl-contents))
(unless (equal? got2 "6\n> (+ 1 (+ 2 3))\n6\n> ") (unless (equal? got2 "6\n> (+ 1 (+ 2 3))\n6\n> ")