fix some tests for drdr

collects/meta/props

@@ -636,6 +636,13 @@ path/s is either such a string or a list of them.
 "collects/ffi/examples/tcl.rkt" drdr:command-line "mzc ~s"
 "collects/ffi/examples/xmmsctrl.rkt" drdr:command-line ""
 "collects/ffi/examples/xosd.rkt" drdr:command-line "mzc ~s"
+"collects/ffi/examples/use-c-printf.rkt" drdr:command-line "mzc -k ~s"
+"collects/ffi/examples/use-esd.rkt" drdr:command-line "mzc ~s"
+"collects/ffi/examples/use-magick.rkt" drdr:command-line "mzc ~s"
+"collects/ffi/examples/use-sndfile.rkt" drdr:command-line "mzc ~s"
+"collects/ffi/examples/use-tcl.rkt" drdr:command-line "mzc ~s"
+"collects/ffi/examples/use-xmmsctrl.rkt" drdr:command-line ""
+"collects/ffi/examples/use-xosd.rkt" drdr:command-line "mzc ~s"
 "collects/ffi/magick.rkt" drdr:command-line "mzc ~s"
 "collects/ffi/unsafe/objc.rkt" drdr:command-line "mzc ~s"
 "collects/ffi/private/objc-doc-unsafe.rkt" drdr:command-line "mzc ~s"

collects/tests/mred/auto.rkt

@@ -1,5 +1,5 @@
 
-(load-relative "editor.ss")
-(load-relative "paramz.ss")
-(load-relative "dc.ss")
-(load-relative "windowing.ss")
+(load-relative "editor.rkt")
+(load-relative "paramz.rkt")
+(load-relative "dc.rkt")
+(load-relative "windowing.rkt")

collects/tests/mred/dc.rkt

@@ -1,5 +1,5 @@
 
-(load-relative "loadtest.ss")
+(load-relative "loadtest.rkt")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                               DC Tests                                     ;;

collects/tests/mred/editor.rkt

@@ -1,5 +1,5 @@
 
-(load-relative "loadtest.ss")
+(load-relative "loadtest.rkt")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                            Editor Tests                                    ;;

collects/tests/mred/gui.rkt

@@ -1,4 +1,4 @@
-(let ([f (load-relative "gui-main.ss")])
+(let ([f (load-relative "gui-main.rkt")])
   (thread 
    (lambda ()
      (f "New" "Save" mred:console-frame%))))

collects/tests/mred/loadtest.rkt

@@ -2,4 +2,4 @@
 (unless (with-handlers ([exn:fail? (lambda (x) #f)])
 	  (namespace-variable-binding 'SECTION)
 	  #t)
-  (load-relative "testing.ss"))
+  (load-relative "testing.rkt"))

collects/tests/mred/paramz.rkt

@@ -1,5 +1,5 @@
 
-(load-relative "loadtest.ss")
+(load-relative "loadtest.rkt")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                             Yield Tests                                    ;;

collects/tests/mred/windowing.rkt

@@ -1,5 +1,5 @@
 
-(load-relative "loadtest.ss")
+(load-relative "loadtest.rkt")
 
 (define shorter? #t)
 

collects/tests/racket/benchmarks/mz/parsing.scm

@@ -1,6 +1,6 @@
 (require (lib "scheme-lexer.ss" "syntax-color") scheme/gui/base)
 
-(define path (build-path (collection-path "framework" "private") "frame.ss"))
+(define path (build-path (collection-path "framework" "private") "frame.rkt"))
 
 (define content 
   (with-input-from-file path

collects/tests/racket/cache-image-snip-test.rkt

@@ -1,4 +1,4 @@
-(load-relative "loadtest.ss")
+(load-relative "loadtest.rkt")
 
 (require mrlib/cache-image-snip
          mzlib/unit)

collects/tests/racket/embed-me11.rkt

@@ -1,2 +1,2 @@
-#reader(lib "embed-me11-rd.ss" "tests" "mzscheme")
+#reader(lib "embed-me11-rd.ss" "tests" "racket")
 "It goes to ~a!\n"

collects/tests/racket/prompt-sfs.rkt

@@ -1,5 +1,5 @@
-#lang scheme
-(require scheme/system)
+#lang racket
+(require racket/system)
 
 #|
 
@@ -10,7 +10,7 @@ the `x' binding is part of the deeper meta-continuation when `ak'
 is captured, but it is delimited inside the binding, so `x'
 should not be reated in `ak'.
 
-The test is implemented using `dump-memory-stats' in another mzscheme
+The test is implemented using `dump-memory-stats' in another racket
 process.
 
 |#
@@ -19,7 +19,7 @@ process.
   (let ([f (find-executable-path (find-system-path 'exec-file) #f)])
     (let ([p (open-output-bytes)])
       (parameterize ([current-error-port p])
-        (system* f "-l" "tests/mzscheme/prompt-sfs" "sub"))
+        (system* f "-l" "tests/racket/prompt-sfs" "sub"))
       (unless (regexp-match? #rx"<will-executor>: +1 +" (get-output-bytes p))
         (error "wrong output")
         (exit 1))))

collects/tests/syntax-color/paren-tree.rkt

@@ -1,4 +1,4 @@
-(load-relative "../mzscheme/loadtest.ss")
+(load-relative "../racket/loadtest.rkt")
 (require mzlib/class
          syntax-color/paren-tree)
 

collects/tests/syntax-color/token-tree.rkt

@@ -1,4 +1,4 @@
-(load-relative "../mzscheme/loadtest.ss")
+(load-relative "../racket/loadtest.rkt")
 (require mzlib/class
          syntax-color/token-tree)