Rename "collects/tests/mred" -> ".../gracket".

Some additional mred-related tweaks.

collects/meta/props

@@ -1405,6 +1405,29 @@ path/s is either such a string or a list of them.
 "collects/tests/frtime/time.rkt" drdr:command-line (gracket-text "-t" *)
 "collects/tests/future" responsible (jamesswaine mflatt robby)
 "collects/tests/future/random-future.rkt" drdr:timeout 240
+"collects/tests/gracket" responsible (mflatt)
+"collects/tests/gracket/auto.rktl" drdr:command-line #f
+"collects/tests/gracket/blits.rkt" drdr:command-line (gracket "-f" *)
+"collects/tests/gracket/dc.rktl" drdr:command-line (gracket "-f" *)
+"collects/tests/gracket/draw.rkt" drdr:command-line (mzc *)
+"collects/tests/gracket/editor.rktl" drdr:command-line (gracket "-f" *)
+"collects/tests/gracket/gui-main.rktl" drdr:command-line (gracket "-f" *)
+"collects/tests/gracket/gui.rktl" drdr:command-line (gracket "-f" *)
+"collects/tests/gracket/item.rkt" drdr:command-line (mzc *)
+"collects/tests/gracket/loadtest.rktl" drdr:command-line (gracket "-f" *)
+"collects/tests/gracket/mem.rktl" drdr:command-line #f
+"collects/tests/gracket/paramz.rktl" drdr:command-line (gracket "-f" *)
+"collects/tests/gracket/png.rktl" drdr:command-line #f
+"collects/tests/gracket/random.rktl" drdr:command-line #f
+"collects/tests/gracket/showkey.rktl" drdr:command-line #f
+"collects/tests/gracket/sixlib.rktl" drdr:command-line #f
+"collects/tests/gracket/test-editor-admin.rkt" drdr:command-line (gracket-text "-t" *)
+"collects/tests/gracket/testing.rktl" drdr:command-line (gracket "-f" *)
+"collects/tests/gracket/text-scale.rktl" drdr:command-line #f
+"collects/tests/gracket/windowing.rktl" drdr:command-line (gracket "-f" *)
+"collects/tests/gracket/wxme-doc-random.rkt" drdr:command-line (mzc *)
+"collects/tests/gracket/wxme-random.rkt" drdr:command-line #f
+"collects/tests/gracket/wxme.rkt" drdr:command-line (gracket-text "-t" *)
 "collects/tests/honu" responsible (rafkind)
 "collects/tests/html" responsible (jay)
 "collects/tests/macro-debugger" responsible (ryanc)
@@ -1412,29 +1435,6 @@ path/s is either such a string or a list of them.
 "collects/tests/macro-debugger/gui-tests.rkt" drdr:command-line (gracket-text "-t" *)
 "collects/tests/macro-debugger/tests/collects.rkt" drdr:command-line (gracket-text "-t" *)
 "collects/tests/match" responsible (samth)
-"collects/tests/mred" responsible (mflatt)
-"collects/tests/mred/auto.rktl" drdr:command-line #f
-"collects/tests/mred/blits.rkt" drdr:command-line (gracket "-f" *)
-"collects/tests/mred/dc.rktl" drdr:command-line (gracket "-f" *)
-"collects/tests/mred/draw.rkt" drdr:command-line (mzc *)
-"collects/tests/mred/editor.rktl" drdr:command-line (gracket "-f" *)
-"collects/tests/mred/gui-main.rktl" drdr:command-line (gracket "-f" *)
-"collects/tests/mred/gui.rktl" drdr:command-line (gracket "-f" *)
-"collects/tests/mred/item.rkt" drdr:command-line (mzc *)
-"collects/tests/mred/loadtest.rktl" drdr:command-line (gracket "-f" *)
-"collects/tests/mred/mem.rktl" drdr:command-line #f
-"collects/tests/mred/paramz.rktl" drdr:command-line (gracket "-f" *)
-"collects/tests/mred/png.rktl" drdr:command-line #f
-"collects/tests/mred/random.rktl" drdr:command-line #f
-"collects/tests/mred/showkey.rktl" drdr:command-line #f
-"collects/tests/mred/sixlib.rktl" drdr:command-line #f
-"collects/tests/mred/test-editor-admin.rkt" drdr:command-line (gracket-text "-t" *)
-"collects/tests/mred/testing.rktl" drdr:command-line (gracket "-f" *)
-"collects/tests/mred/text-scale.rktl" drdr:command-line #f
-"collects/tests/mred/windowing.rktl" drdr:command-line (gracket "-f" *)
-"collects/tests/mred/wxme-doc-random.rkt" drdr:command-line (mzc *)
-"collects/tests/mred/wxme-random.rkt" drdr:command-line #f
-"collects/tests/mred/wxme.rkt" drdr:command-line (gracket-text "-t" *)
 "collects/tests/mysterx" responsible (mflatt)
 "collects/tests/mysterx/dhtmltests.rktl" drdr:command-line #f
 "collects/tests/mysterx/mystests.rktl" drdr:command-line #f

collects/tests/drracket/run.sh

@@ -1,8 +1,8 @@
 #!/bin/sh -x
-mred module-lang-test.ss &&
-mred repl-test.ss &&
-mred io.ss &&
-mred language-test.ss &&
-mred syncheck-test.ss &&
-mred teachpack.ss &&
-mred save-teaching-lang-file.ss
+gracket module-lang-test.rkt &&
+gracket repl-test.rkt &&
+gracket io.rkt &&
+gracket language-test.rkt &&
+gracket syncheck-test.rkt &&
+gracket teachpack.rkt &&
+gracket save-teaching-lang-file.rkt

collects/tests/framework/README

@@ -7,9 +7,9 @@ completion of the engine test suites and the mzscheme test suites.
 
 All of these tests reside in PLTHOME/collects/tests/framework/
 
-There will be a main mzscheme process which will start up a new mred
+There will be a main mzscheme process which will start up a new gracket
 as necessary for the test suites. Since some tests actually require
-mred to exit in order to pass, this governor is required.
+gracket to exit in order to pass, this governor is required.
 
 To run a test use:
 
@@ -22,7 +22,7 @@ Some of the tests in this file are not yet present in the
 testing directory. They are planned future expansions of
 this test suite (and have been for some time....)
 
-OS X: you will have to click on the newly started mred
+OS X: you will have to click on the newly started gracket
 processes in the doc while the test suite runs or it will
 signal failures when there aren't any.
 
@@ -39,7 +39,7 @@ signal failures when there aren't any.
 - preferences: |# prefs.ss #|
 
   | This tests that preferences are saved and restored correctly, both
-  | immediately and across reboots of mred.
+  | immediately and across reboots of gracket.
 
 
 - individual object tests:

collects/tests/framework/framework-test-engine

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

collects/tests/framework/group-test.rkt

@@ -14,7 +14,7 @@
                     (car x)
                     (error 'car* "got a non-pair for ~s" 'x))])))
 
-;; this test uses a new eventspace so that the mred function
+;; this test uses a new eventspace so that the gracket function
 ;; current-eventspace-has-standard-menus? returns #f and thus
 ;; all of the platforms behave the same way.
 (test
@@ -182,4 +182,4 @@
                              (unless (equal? (send x get-label) "first")
                                (send x close)))
                            frames))))))
-  )
+  )

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

@@ -88,7 +88,7 @@
         (let-values ([(dir exe _)
                       (split-path (find-system-path 'exec-file))])
           dir)
-        (if (eq? 'windows (system-type)) "GRacket.exe" "mred")))
+        (if (eq? 'windows (system-type)) "GRacket.exe" "gracket")))
       (path->string
        (build-path (collection-path "tests" "framework")
                    "framework-test-engine.ss")))))
@@ -172,15 +172,15 @@
                      (or (not (char-ready? in-port))
                          (not (eof-object? (peek-char in-port))))))
         (restart-mred))
-      (debug-printf messages "  ~a // ~a: sending to mred:\n"
+      (debug-printf messages "  ~a // ~a: sending to gracket:\n"
                     section-name test-name)
       (show-text sexp)
       (with-handlers ([exn:fail?
                        (lambda (x)
                          (cond
-                           ;; this means that mred was closed
+                           ;; this means that gracket was closed
                            ;; so we can restart it and try again.
-                           [(tcp-error? x) 
+                           [(tcp-error? x)
                             (restart-mred)
                             (write sexp out-port)
                             (newline out-port)
@@ -210,21 +210,21 @@
                                                          (cons char (loop))))
                                                    null))))))))])
                (read in-port))])
-        (debug-printf messages "  ~a // ~a: received from mred:\n" section-name test-name)
+        (debug-printf messages "  ~a // ~a: received from gracket:\n" section-name test-name)
         (show-text answer)
         (unless (or (eof-object? answer)
                     (and (list? answer)
                          (= 2 (length answer))
                          (memq (car answer)
                                '(error last-error cant-read normal))))
-          (error 'send-sexp-to-mred "unpected result from mred: ~s\n" answer))
+          (error 'send-sexp-to-mred "unpected result from gracket: ~s\n" answer))
         (if (eof-object? answer)
             (raise (make-eof-result))
             (case (car answer)
               [(error)
-               (error 'send-sexp-to-mred "mred raised \"~a\"" (second answer))]
+               (error 'send-sexp-to-mred "gracket raised \"~a\"" (second answer))]
               [(last-error)
-               (error 'send-sexp-to-mred "mred (last time) raised \"~a\"" (second answer))]
+               (error 'send-sexp-to-mred "gracket (last time) raised \"~a\"" (second answer))]
               [(cant-read) (error 'mred/cant-parse (second answer))]
               [(normal) 
                (eval (second answer))]))))))

collects/tests/gracket/README

@@ -1,17 +1,17 @@
 
-The "item.ss" test (use load/cd) creates a frame to select among
+The "item.rkt" test (use `require') creates a frame to select among
 several types of control-testing frames. Click the `Get Instructions'
 button in the top-left for more information.
 
 ---------------------------------------------------------------------------
 
-The "draw.ss" test (use load/cd) tests drawing commands. Click the
+The "draw.rkt" test (use load/cd) tests drawing commands. Click the
 "What Should I See?" button for further details.
 
 ---------------------------------------------------------------------------
 
-The "mem.ss" test is loaded at startup:
-  mred -r mem.ss
+The "mem.rktl" test is loaded at startup:
+  gracket -r mem.rktl
 Creates a lot of frames and instance of other objects, reporting
 memory information along the way. At the end, before the last memory
 dump, objects that are still allocated are displayed like this:
@@ -24,8 +24,8 @@ A large number of lines (say, 50) indicates a GC problem.
 ---------------------------------------------------------------------------
 
 [Out of date:]
-The "random.ss" test is a randomized test of the GRacket classes that tests
-GRacket's stability. Load "random.ss", and then run
+The "random.rktl" test is a randomized test of the GRacket classes that tests
+GRacket's stability. Load "random.rktl", and then run
   (init)
 This attempts to create instances of classes using random
 intialization arguments. (init) can be run any number of times. 
@@ -37,7 +37,7 @@ arguments.
 
 To avoid testing much of the wxMedia toolbox, which is likely to be
 platform-independent, (define skip-media? #t) before loading
-"random.ss".
+"random.rktl".
 
 
 ==================================================
@@ -46,8 +46,8 @@ Old Stuff
 
 ---------------------------------------------------------------------------
 
-The "imred.ss" test is used to check for memory leaks in a loop
-invoking the mred system. Call the `go' procedure with a list
+The "imred.rktl" test is used to check for memory leaks in a loop
+invoking the gracket system. Call the `go' procedure with a list
 of symbol flags:
   'force not included:
      Use the current eventspaces; expects mred:run-exit-callbacks
@@ -66,22 +66,23 @@ of symbol flags:
 
 ---------------------------------------------------------------------------
 
-"startup" tests the startup flags of mred. run "run.ss" from that directory.
+"startup" tests the startup flags of gracket.
+run "run.rktl" from that directory.
 
 ---------------------------------------------------------------------------
 
-"frame-edit.ss" checks that various frames match with various
+"frame-edit.rktl" checks that various frames match with various
 edits. Under construction.
 
 ---------------------------------------------------------------------------
 
-"gui.ss" tests:
+"gui.rktl" tests:
  - save prompting (before closing unsaved files) and
  - autosaving 
 
-evaluate `(load "gui.ss")' in the console to run.
+evaluate `(load "gui.rktl")' in the console to run.
 
-It also overwrites the file "tmp.ss" in the testing directory.
+It also overwrites the file "tmp.rktd" in the testing directory.
 
 ---------------------------------------------------------------------------
 

collects/tests/gracket/gui-main.rktl

@@ -54,8 +54,8 @@
 	 
 	 [_ (unless (mred:get-preference 'mred:autosaving-on?)
 	      (error 'autosave "autosaving preference turned off. Turn back on (with preferences dialog)"))]
-	 [tmp-file (build-path dir "tmp.ss")]
-	 [backup-file (build-path dir "#tmp.ss#1#")]
+	 [tmp-file (build-path dir "tmp.rktd")]
+	 [backup-file (build-path dir "#tmp.rktd#1#")]
 	 [_ (call-with-output-file tmp-file
 	      (lambda (port) (display "12" port))
 	      'truncate)]

collects/tests/gracket/mem.rktl

@@ -1,5 +1,5 @@
 
-; run with mred -u -- -f mem.ss
+; run with gracket -u -- -f mem.rktl
 
 (require mzlib/class100)
 

collects/tests/info.rkt

@@ -9,10 +9,10 @@
     "aligned-pasteboard"
     "deinprogramm"
     "future"
+    "gracket"
     "honu"
     "match"
     "macro-debugger"
-    "mred"
     "mysterx"
     "mzcom"
     "racket"

collects/tests/plot/run-tests.rkt

@@ -1,6 +1,6 @@
 #!/bin/sh
 #| -*- scheme -*-
-exec mred  "$0" "$@"
+exec gracket "$0" "$@"
 |#
 #lang scheme
 (require plot file/md5 scheme/runtime-path)

collects/tests/stepper/through-tests.rkt

@@ -1154,7 +1154,7 @@
   ;  ;;;;;;;;;;;;;
   ;
 
-  ; as you can see, many teachpack tests work only in mred:
+  ; as you can see, many teachpack tests work only in gracket:
   ;; (require mred)
 
 

collects/tests/typed-scheme/run

@@ -1,2 +1,2 @@
-#!/bin/bash
-mred  -e '(begin (require "main.ss") (go))'
+#!/bin/sh
+gracket -e '(begin (require "main.ss") (go))'

src/gracket/wxs/Makefile.in

@@ -128,8 +128,8 @@ libwxscheme.@LIBSFX@ : $(OBJECTS)
 	$(RANLIB) libwxscheme.@LIBSFX@
 
 test-file:
-	rm -f $(srcdir)/../../../tests/mred/tests.rkt
-	$(MAKE) $(srcdir)/../../../tests/mred/tests.rkt
+	rm -f $(srcdir)/../../../tests/gracket/tests.rkt
+	$(MAKE) $(srcdir)/../../../tests/gracket/tests.rkt
 
 kernel.rkt : $(srcdir)/../../../collects/mred/private/kernel.rkt