From 48b10fccdc28490fe7ec8e12fe863fbbc4b54614 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 6 Dec 1998 23:22:32 +0000 Subject: [PATCH] ... original commit: 5f9e0e11f56ae7b13015517e2cea9bf0054e88bc --- collects/tests/framework/main.ss | 1 - collects/tests/framework/text.ss | 15 +++++++++++---- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/collects/tests/framework/main.ss b/collects/tests/framework/main.ss index 57de592a..a351199a 100644 --- a/collects/tests/framework/main.ss +++ b/collects/tests/framework/main.ss @@ -235,7 +235,6 @@ ("Only run test named " "test-name")]))]) (parse-command-line "framework-test" argv command-line-flags (lambda (collected . files) - (printf "processing ~a~n" files) (set! files-to-process (if (null? files) all-files files))) `("Names of the tests; defaults to all tests")) diff --git a/collects/tests/framework/text.ss b/collects/tests/framework/text.ss index a452d2c9..152050c5 100644 --- a/collects/tests/framework/text.ss +++ b/collects/tests/framework/text.ss @@ -8,11 +8,18 @@ (override [get-editor% (lambda () ,class)]))] [f (make-object % "test text")]) - (send f show #t))) + + (let loop ([f f][l " "]) + (printf "~a~a ~a~n" l f (send f get-label)) + (when (is-a? f area-container<%>) + (for-each (lambda (c) + (loop c (string-append " " l))) + (send f get-children)))) + (send f show #t) + (sleep/yield 1) + (printf "focus: ~a~n" (get-top-level-focus-window)))) (wait-for-frame "test text") - (send-sexp-to-mred - `(test:keystroke #\a)) - (printf "sent sexp~n") + (send-sexp-to-mred `(test:keystroke #\a)) (wait-for `(string=? "a" (send (send (get-top-level-focus-window) get-editor) get-text))) (send-sexp-to-mred `(send (get-top-level-focus-window) show #f)))))