From f721c0427dac670853f9673ae9cfab1818f78846 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 31 May 2012 10:45:05 -0500 Subject: [PATCH] adjust the timeouts to two drracket tests and add a little syncronization help in a third --- collects/meta/props | 4 ++-- collects/tests/drracket/incremental-keybindings-test.rkt | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/meta/props b/collects/meta/props index b2c0341a84..af33d37091 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -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/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.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-preferences.rkt" drdr:command-line (mzc *) "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/snips.rkt" drdr:command-line (gracket *) "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-save-file.rkt" responsible (robby matthias) drdr:command-line (gracket *) "collects/tests/drracket/teachpack.rkt" responsible (robby matthias) drdr:command-line (gracket *) diff --git a/collects/tests/drracket/incremental-keybindings-test.rkt b/collects/tests/drracket/incremental-keybindings-test.rkt index 01d0f7806f..099b001d57 100644 --- a/collects/tests/drracket/incremental-keybindings-test.rkt +++ b/collects/tests/drracket/incremental-keybindings-test.rkt @@ -56,6 +56,8 @@ to DrRacket and then tries out the keystrokes. (send defs set-position (send defs last-position) (send defs last-position)))) (test:keystroke #\c '(control)) (test:keystroke #\e '(control)) + (queue-callback/res void) + (sync (system-idle-evt)) (wait-for-computation drs-frame) (define got2 (get-repl-contents)) (unless (equal? got2 "6\n> (+ 1 (+ 2 3))\n6\n> ")