...

original commit: f71156e7e60b350b65d2e5afe4f1d838afeff332
2000-06-27 23:42:56 +00:00 · 2000-06-27 23:42:56 +00:00 · a3d30af820
commit a3d30af820
parent 7ab74b1b47
1 changed files with 5 additions and 1 deletions
--- a/collects/tests/framework/mem.ss
+++ b/collects/tests/framework/mem.ss
@ -56,8 +56,12 @@
    (test-allocate name
 		   `(lambda () (let ([f (make-object ,% ,name)])
 				 (send f show #t)
+				 (yield) (yield)
 				 f))
-		   `(lambda (f) (send f close)))
+		   `(lambda (f)
+		      (yield) (yield)
+		      (send f close)
+		      (yield) (yield)))
    (send-sexp-to-mred '(preferences:set 'framework:exit-when-no-frames #t))))

 (test-allocate "frame%"