From d3dd112c17ab6cabd50ac10f298ae1048d56aac4 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 3 Dec 1998 00:52:55 +0000
Subject: [PATCH] ...

original commit: 1e976458c1b48e35f7d3c9be99b427a16855c921
---
 collects/tests/framework/canvas.ss | 10 ++++++++++
 collects/tests/framework/main.ss   |  8 ++++----
 2 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/collects/tests/framework/canvas.ss b/collects/tests/framework/canvas.ss
index e69de29b..7456ee06 100644
--- a/collects/tests/framework/canvas.ss
+++ b/collects/tests/framework/canvas.ss
@@ -0,0 +1,10 @@
+(define (test-creation class name)
+  (test
+   name
+   (lambda (x) #t)
+   `(let ([f (make-object frame:basic%)]
+	  [c (make-object ,class f)])
+      (send f show #t))))
+
+(test-creation 'canvas:wide-snip-mixin-creation '(canvas:wide-snip-mixin editor-canvas%))
+(test-creation 'canvas:wide-snip%-creation 'canvas:wide-snip%)
diff --git a/collects/tests/framework/main.ss b/collects/tests/framework/main.ss
index 30024658..d6fcf7f2 100644
--- a/collects/tests/framework/main.ss
+++ b/collects/tests/framework/main.ss
@@ -158,7 +158,7 @@
 	(fluid-let ([test-name in-test-name])
 	  (when (or (not only-these-tests)
 		    (memq test-name only-these-tests))
-	    (let ([passed
+	    (let ([failed
 		   (with-handlers ([(lambda (x) #t)
 				    (lambda (x)
 				      (if (exn? x)
@@ -170,9 +170,9 @@
 				(begin0 (send-sexp-to-mred sexp/proc)
 					(send-sexp-to-mred ''check-for-errors)))])
 
-		       (passed? result)))])
-	      (unless passed
-		(printf "FAILED ~a~n" test-name)
+		       (not (passed? result))))])
+	      (when failed
+		(printf "FAILED ~a: ~a~n" failed test-name)
 		(case jump
 		  [(section) (section-jump)]
 		  [(continue) (void)]