...

original commit: 5f9e0e11f56ae7b13015517e2cea9bf0054e88bc

collects/tests/framework/main.ss

@@ -235,7 +235,6 @@
 		 ("Only run test named <test-name>" "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"))
 

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)))))