diff --git a/collects/meta/props b/collects/meta/props index b11e66e948..8924b31e96 100644 --- a/collects/meta/props +++ b/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" diff --git a/collects/tests/mred/auto.rkt b/collects/tests/mred/auto.rkt index c90f3e5988..8f37aef12c 100644 --- a/collects/tests/mred/auto.rkt +++ b/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") diff --git a/collects/tests/mred/dc.rkt b/collects/tests/mred/dc.rkt index 217f14e3a1..064603f23e 100644 --- a/collects/tests/mred/dc.rkt +++ b/collects/tests/mred/dc.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; DC Tests ;; diff --git a/collects/tests/mred/editor.rkt b/collects/tests/mred/editor.rkt index 1e235a0d01..e9219151c0 100644 --- a/collects/tests/mred/editor.rkt +++ b/collects/tests/mred/editor.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Editor Tests ;; diff --git a/collects/tests/mred/gui.rkt b/collects/tests/mred/gui.rkt index 1125a133c5..1cc35d6ee7 100644 --- a/collects/tests/mred/gui.rkt +++ b/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%)))) diff --git a/collects/tests/mred/loadtest.rkt b/collects/tests/mred/loadtest.rkt index d60140522f..117c1de3ae 100644 --- a/collects/tests/mred/loadtest.rkt +++ b/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")) diff --git a/collects/tests/mred/paramz.rkt b/collects/tests/mred/paramz.rkt index a74786bfe9..e78265adf4 100644 --- a/collects/tests/mred/paramz.rkt +++ b/collects/tests/mred/paramz.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Yield Tests ;; diff --git a/collects/tests/mred/windowing.rkt b/collects/tests/mred/windowing.rkt index 6cb61eeb2e..6bda22354c 100644 --- a/collects/tests/mred/windowing.rkt +++ b/collects/tests/mred/windowing.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (define shorter? #t) diff --git a/collects/tests/racket/benchmarks/mz/parsing.scm b/collects/tests/racket/benchmarks/mz/parsing.scm index 4900f6f3d2..a1d17b8ecb 100644 --- a/collects/tests/racket/benchmarks/mz/parsing.scm +++ b/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 diff --git a/collects/tests/racket/cache-image-snip-test.rkt b/collects/tests/racket/cache-image-snip-test.rkt index 88606410bf..4dbc72776e 100644 --- a/collects/tests/racket/cache-image-snip-test.rkt +++ b/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) diff --git a/collects/tests/racket/embed-me11.rkt b/collects/tests/racket/embed-me11.rkt index f3ab6ee9f7..c4771e307e 100644 --- a/collects/tests/racket/embed-me11.rkt +++ b/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" diff --git a/collects/tests/racket/prompt-sfs.rkt b/collects/tests/racket/prompt-sfs.rkt index ccc9ede999..cea6d2a9c0 100644 --- a/collects/tests/racket/prompt-sfs.rkt +++ b/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": +1 +" (get-output-bytes p)) (error "wrong output") (exit 1)))) diff --git a/collects/tests/syntax-color/paren-tree.rkt b/collects/tests/syntax-color/paren-tree.rkt index 44befb9041..4d7c62d1f9 100644 --- a/collects/tests/syntax-color/paren-tree.rkt +++ b/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) diff --git a/collects/tests/syntax-color/token-tree.rkt b/collects/tests/syntax-color/token-tree.rkt index 1f76b8bd0f..76ba9059b2 100644 --- a/collects/tests/syntax-color/token-tree.rkt +++ b/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)