...

original commit: 4805fafa00d3329ca7f06ec61b5bd787772d8cea

collects/tests/framework/text.ss

@@ -0,0 +1,57 @@
+(define (test-creation frame% class name)
+  (test
+   name
+   (lambda (x) #t)
+   (lambda ()
+     (send-sexp-to-mred
+      `(let* ([% (class-asi ,frame%
+		   (override
+		    [get-editor% (lambda (), class)]))]
+	      [f (make-object % "test text")])
+	 (send f show #t)))
+      (wait-for-frame "test text")
+      (send-sexp-to-mred
+       `(send (get-top-level-focus-window) show #f)))))
+
+(test-creation 'frame:text%
+	       '(editor:basic-mixin (text:basic-mixin text%))
+	       'text:basic-mixin-creation)
+(test-creation 'frame:text%
+	       'text:basic%
+	       'text:basic-creation)
+(test-creation 'frame:text%
+	       '(editor:return-mixin text:basic%)
+	       'text:return-mixin-creation)
+(test-creation 'frame:text%
+	       'text:return%
+	       'text:return-creation)
+(test-creation 'frame:text%
+	       '(editor:file-mixin text:basic%)
+	       'editor:file-mixin-creation)
+(test-creation 'frame:text%
+	       'text:file%
+	       'text:file-creation)
+(test-creation 'frame:text%
+	       '(text:clever-file-format-mixin text:file%)
+	       'text:clever-file-format-mixin-creation)
+(test-creation 'frame:text%
+	       'text:clever-file-format%
+	       'text:clever-file-format-creation)
+(test-creation 'frame:text%
+	       '(editor:backup-autosave-mixin text:clever-file-format%)
+	       'editor:backup-autosave-mixin-creation)
+(test-creation 'frame:text%
+	       'text:backup-autosave%
+	       'text:backup-autosave-creation)
+(test-creation 'frame:text%
+	       '(text:searching-mixin text:backup-autosave%)
+	       'text:searching-mixin-creation)
+(test-creation 'frame:text%
+	       'text:searching%
+	       'text:searching-creation)
+(test-creation 'frame:text-info%
+	       '(text:info-mixin (editor:info-mixin text:searching%))
+	       'text:info-mixin-creation)
+(test-creation 'frame:text-info%
+	       'text:info%
+	       'text:info-creation)