cleanups in test suites

svn: r3763

original commit: 3cf662e760d8af975999f90011687c2346867c85

collects/tests/framework/README

@@ -61,33 +61,16 @@ signal failures when there aren't any.
 
   | This tests the misc (non-scheme) keybindings
 
-- searching: |# search.ss #|
-
-  | This tests the seaching frame.
-
-- info: |# info-frame.ss #|
-
-  | This tests the info frame. (ie that toolbar on the bottom of the
-                                screen)
-
 - group tests: |# group-test.ss #|
 
   | make sure that mred:the-frame-group records frames correctly.
   | fake user input expected.
 
-- scheme mode |# scheme.ss #|
-
-  | Make sure that Scheme things work in scheme mode.
-
 - saving tests:
 
   | These tests will make sure that the usual checks against a user
   | losing their work are in place.
 
-  - autosaving: |# autosave.ss #|
-  - closing: |# close.ss #|
-  - quitting: |# quit.ss #|
-
 - interactive tests
 
   | these tests require intervention by people. Clicking and whatnot

collects/tests/framework/frame.ss

@@ -116,13 +116,13 @@
            (wait-for-frame frame-name)
            (send-sexp-to-mred
             `(test:menu-select "File" "Open..."))
-           (wait-for-frame "Get file")
+           (wait-for-frame "Open File")
            (call-with-output-file tmp-file
              (lambda (port)
                (display test-file-contents port))
              'truncate)
            (send-sexp-to-mred
-            `(begin (send (find-labelled-window "Full pathname") focus)
+            `(begin (send (find-labelled-window "Filename:") focus)
                     ,(case (system-type)
                        [(macos macosx) `(test:keystroke #\a '(meta))]
                        [(unix) `(test:keystroke #\a '(meta))]

collects/tests/framework/framework-test

@@ -0,0 +1,3 @@
+#!/bin/sh
+
+exec mred -qu main.ss "$@"

collects/tests/framework/framework-test-engine

@@ -0,0 +1,3 @@
+#!/bin/sh
+
+exec mred -qu framework-test-engine.ss "$@"

collects/tests/framework/text.ss

@@ -17,6 +17,7 @@
                                         [define (get-editor%) ,class]
                                         (super-instantiate ()))
                            ())])
+                  (send (send f get-editor) set-max-undo-history 10)
                   (send f show #t)
                   (send f get-label)))])
          (wait-for-frame label)
@@ -26,6 +27,7 @@
           `(begin 
              ;; remove the `a' to avoid save dialog boxes (and test them, I suppose)
              (send (send (get-top-level-focus-window) get-editor) undo) 
+             (send (send (get-top-level-focus-window) get-editor) undo)
 
              (send (send (get-top-level-focus-window) get-editor) lock #t)
              (send (send (get-top-level-focus-window) get-editor) lock #f)))
@@ -33,17 +35,18 @@
           `(send (get-top-level-focus-window) close))
          (send-sexp-to-mred `(map (lambda (x) (send x get-label)) (get-top-level-windows)))))))
   
-  
+  #|
   (test-creation 'frame:text%
                  '(text:basic-mixin (editor:basic-mixin text%))
                  'text:basic-mixin-creation)
   (test-creation 'frame:text%
                  'text:basic%
                  'text:basic-creation)
-  
+  |#
   (test-creation 'frame:text%
                  '(editor:file-mixin text:keymap%)
                  'editor:file-mixin-creation)
+  
   (test-creation 'frame:text%
                  'text:file%
                  'text:file-creation)