...

original commit: e4997679f50be40549e89cd02f6402aae26fa376

collects/framework/gui-utils.ss

@@ -9,6 +9,6 @@
 
   (define-values/invoke-unit/sig 
     framework:gui-utils^
-    gui-utils@
+    framework:gui-utils@
     #f
     mred^))

collects/tests/framework/debug.ss

@@ -1,4 +1,4 @@
-(module debug-printf mzscheme
+(module debug mzscheme
   (provide debug-printf debug-when)
 
   ;; all of the steps in the tcp connection
@@ -12,7 +12,7 @@
   (define schedule? #t)
 
   ;; of the sexpression transactions between mz and mred
-  (define messages? #f)
+  (define messages? #t)
 
   (define-syntax debug-printf
     (lambda (stx)

collects/tests/framework/load.ss

@@ -7,7 +7,7 @@
     (test
      (string->symbol file)
      void?
-     `(parameterize ([current-namespace (make-namespace)])
+     `(parameterize ([current-namespace (make-namespace 'mred)])
 	(eval '(require (lib ,file "framework")))
 	(with-handlers ([(lambda (x) #t)
 			 (lambda (x)

collects/tests/framework/test-suite-utils.ss

@@ -228,20 +228,19 @@
       (fluid-let ([test-name in-test-name])
 	(when (or (not only-these-tests)
 		  (memq test-name only-these-tests))
-	  (let ([failed
-		 (with-handlers ([(lambda (x) #t)
-				  (lambda (x)
-				    (if (exn? x)
-					(exn-message x)
-					x))])
-		   (let ([result
-			  (if (procedure? sexp/proc)
-			      (sexp/proc)
-			      (begin0 (send-sexp-to-mred sexp/proc)
-				      (send-sexp-to-mred ''check-for-errors)))])
-		     (not (passed? result))))])
+	  (let* ([result
+		  (with-handlers ([(lambda (x) #t)
+				   (lambda (x)
+				     (if (exn? x)
+					 (exn-message x)
+					 x))])
+		    (if (procedure? sexp/proc)
+			(sexp/proc)
+			(begin0 (send-sexp-to-mred sexp/proc)
+				(send-sexp-to-mred ''check-for-errors))))]
+		 [failed (not (passed? result))])
 	    (when failed
-	      (debug-printf schedule "FAILED ~a: ~a~n" failed test-name)
+	      (debug-printf schedule "FAILED ~a:~n  ~s~n" test-name result)
 	      (set! failed-tests (cons (cons section-name test-name) failed-tests))
 	      (case jump
 		[(section) (section-jump)]