move raco exe tests to the compiler-test
package
Also, enable the `raco exe` tests for DrDr
This commit is contained in:
parent
846c247aa3
commit
0bc89dc641
|
@ -10,4 +10,8 @@
|
||||||
(define build-deps '("compiler-lib"
|
(define build-deps '("compiler-lib"
|
||||||
"eli-tester"
|
"eli-tester"
|
||||||
"net-lib"
|
"net-lib"
|
||||||
"scheme-lib"))
|
"scheme-lib"
|
||||||
|
"compatibility-lib"
|
||||||
|
"gui-lib"
|
||||||
|
"htdp-lib"
|
||||||
|
"plai"))
|
||||||
|
|
|
@ -0,0 +1,2 @@
|
||||||
|
#reader(lib "embed-me11-rd.ss" "tests" "compiler" "embed")
|
||||||
|
"It goes to ~a!\n"
|
|
@ -0,0 +1,2 @@
|
||||||
|
#reader(lib "embed-me12-rd.rkt" "tests" "compiler" "embed")
|
||||||
|
"It goes to ~a!\n"
|
|
@ -0,0 +1,5 @@
|
||||||
|
#lang racket/base
|
||||||
|
(require (submod tests/compiler/embed/embed-me18a sub))
|
||||||
|
(with-output-to-file "stdout"
|
||||||
|
(dynamic-require '(submod tests/compiler/embed/embed-me18a sub) 'print-18)
|
||||||
|
#:exists 'append)
|
|
@ -1,7 +1,4 @@
|
||||||
|
#lang racket/base
|
||||||
(load-relative "loadtest.rktl")
|
|
||||||
|
|
||||||
(Section 'embed)
|
|
||||||
|
|
||||||
(require compiler/embed
|
(require compiler/embed
|
||||||
mzlib/file
|
mzlib/file
|
||||||
|
@ -9,6 +6,14 @@
|
||||||
launcher
|
launcher
|
||||||
compiler/distribute)
|
compiler/distribute)
|
||||||
|
|
||||||
|
(define (test expect f/label . args)
|
||||||
|
(define r (apply (if (procedure? f/label)
|
||||||
|
f/label
|
||||||
|
values)
|
||||||
|
args))
|
||||||
|
(unless (equal? expect r)
|
||||||
|
(error "failed\n")))
|
||||||
|
|
||||||
(define (mk-dest-bin mred?)
|
(define (mk-dest-bin mred?)
|
||||||
(case (system-type)
|
(case (system-type)
|
||||||
[(windows) "e.exe"]
|
[(windows) "e.exe"]
|
||||||
|
@ -108,16 +113,16 @@
|
||||||
(prepare dest filename)
|
(prepare dest filename)
|
||||||
(make-embedding-executable
|
(make-embedding-executable
|
||||||
dest mred? #f
|
dest mred? #f
|
||||||
`((#t (lib ,filename "tests" "racket")))
|
`((#t (lib ,filename "tests" "compiler" "embed")))
|
||||||
null
|
null
|
||||||
#f
|
#f
|
||||||
`(,(flags "l") ,(string-append "tests/racket/" filename)))
|
`(,(flags "l") ,(string-append "tests/compiler/embed/" filename)))
|
||||||
(try-exe dest expect mred?)
|
(try-exe dest expect mred?)
|
||||||
|
|
||||||
;; As a launcher:
|
;; As a launcher:
|
||||||
(prepare dest filename)
|
(prepare dest filename)
|
||||||
((if mred? make-gracket-launcher make-racket-launcher)
|
((if mred? make-gracket-launcher make-racket-launcher)
|
||||||
(list "-l" (string-append "tests/racket/" filename))
|
(list "-l" (string-append "tests/compiler/embed/" filename))
|
||||||
dest)
|
dest)
|
||||||
(try-exe dest expect mred? #:dist? #f)
|
(try-exe dest expect mred? #:dist? #f)
|
||||||
|
|
||||||
|
@ -128,7 +133,7 @@
|
||||||
(prepare dest filename)
|
(prepare dest filename)
|
||||||
(make-embedding-executable
|
(make-embedding-executable
|
||||||
dest mred? #f
|
dest mred? #f
|
||||||
`((,pfx (lib ,filename "tests" "racket"))
|
`((,pfx (lib ,filename "tests" "compiler" "embed"))
|
||||||
(#t (lib "scheme/init")))
|
(#t (lib "scheme/init")))
|
||||||
null
|
null
|
||||||
#f
|
#f
|
||||||
|
@ -145,7 +150,7 @@
|
||||||
;; Try full path, and use literal S-exp to start
|
;; Try full path, and use literal S-exp to start
|
||||||
(printf ">>>literal sexp\n")
|
(printf ">>>literal sexp\n")
|
||||||
(prepare dest filename)
|
(prepare dest filename)
|
||||||
(let ([path (build-path (collection-path "tests" "racket") filename)])
|
(let ([path (build-path (collection-path "tests" "compiler" "embed") filename)])
|
||||||
(make-embedding-executable
|
(make-embedding-executable
|
||||||
dest mred? #f
|
dest mred? #f
|
||||||
`((#t ,path))
|
`((#t ,path))
|
||||||
|
@ -158,7 +163,7 @@
|
||||||
;; Use `file' form:
|
;; Use `file' form:
|
||||||
(printf ">>>file\n")
|
(printf ">>>file\n")
|
||||||
(prepare dest filename)
|
(prepare dest filename)
|
||||||
(let ([path (build-path (collection-path "tests" "racket") filename)])
|
(let ([path (build-path (collection-path "tests" "compiler" "embed") filename)])
|
||||||
(make-embedding-executable
|
(make-embedding-executable
|
||||||
dest mred? #f
|
dest mred? #f
|
||||||
`((#t (file ,(path->string path))))
|
`((#t (file ,(path->string path))))
|
||||||
|
@ -171,7 +176,7 @@
|
||||||
;; Use relative path
|
;; Use relative path
|
||||||
(printf ">>>relative path\n")
|
(printf ">>>relative path\n")
|
||||||
(prepare dest filename)
|
(prepare dest filename)
|
||||||
(parameterize ([current-directory (collection-path "tests" "racket")])
|
(parameterize ([current-directory (collection-path "tests" "compiler" "embed")])
|
||||||
(make-embedding-executable
|
(make-embedding-executable
|
||||||
dest mred? #f
|
dest mred? #f
|
||||||
`((#f ,filename))
|
`((#f ,filename))
|
||||||
|
@ -186,13 +191,13 @@
|
||||||
(prepare dest filename)
|
(prepare dest filename)
|
||||||
(make-embedding-executable
|
(make-embedding-executable
|
||||||
dest mred? #f
|
dest mred? #f
|
||||||
`((#t (lib ,filename "tests" "racket"))
|
`((#t (lib ,filename "tests" "compiler" "embed"))
|
||||||
(#t (lib "embed-me3.rkt" "tests" "racket")))
|
(#t (lib "embed-me3.rkt" "tests" "compiler" "embed")))
|
||||||
null
|
null
|
||||||
(base-compile
|
(base-compile
|
||||||
`(begin
|
`(begin
|
||||||
(namespace-require '(lib "embed-me3.rkt" "tests" "racket"))
|
(namespace-require '(lib "embed-me3.rkt" "tests" "compiler" "embed"))
|
||||||
(namespace-require '(lib ,filename "tests" "racket"))))
|
(namespace-require '(lib ,filename "tests" "compiler" "embed"))))
|
||||||
`(,(flags "")))
|
`(,(flags "")))
|
||||||
(try-exe dest (string-append "3 is here, too? #t\n" expect) mred?)
|
(try-exe dest (string-append "3 is here, too? #t\n" expect) mred?)
|
||||||
|
|
||||||
|
@ -207,14 +212,14 @@
|
||||||
'(namespace-require ''#%kernel)))))
|
'(namespace-require ''#%kernel)))))
|
||||||
(make-embedding-executable
|
(make-embedding-executable
|
||||||
dest mred? #f
|
dest mred? #f
|
||||||
`((#t (lib ,filename "tests" "racket")))
|
`((#t (lib ,filename "tests" "compiler" "embed")))
|
||||||
(list
|
(list
|
||||||
tmp
|
tmp
|
||||||
(build-path (collection-path "tests" "racket") "embed-me4.rktl"))
|
(build-path (collection-path "tests" "compiler" "embed") "embed-me4.rktl"))
|
||||||
`(with-output-to-file "stdout"
|
`(with-output-to-file "stdout"
|
||||||
(lambda () (display "... and more!\n"))
|
(lambda () (display "... and more!\n"))
|
||||||
'append)
|
'append)
|
||||||
`(,(flags "l") ,(string-append "tests/racket/" filename)))
|
`(,(flags "l") ,(string-append "tests/compiler/embed/" filename)))
|
||||||
(delete-file tmp))
|
(delete-file tmp))
|
||||||
(try-exe dest (string-append
|
(try-exe dest (string-append
|
||||||
"This is the literal expression 4.\n"
|
"This is the literal expression 4.\n"
|
||||||
|
@ -223,18 +228,19 @@
|
||||||
mred?)))
|
mred?)))
|
||||||
|
|
||||||
(one-mz-test "embed-me1.rkt" "This is 1\n" #t)
|
(one-mz-test "embed-me1.rkt" "This is 1\n" #t)
|
||||||
(one-mz-test "embed-me1b.rkt" "This is 1b\n" #f)
|
(unless mred?
|
||||||
(one-mz-test "embed-me1c.rkt" "This is 1c\n" #f)
|
(one-mz-test "embed-me1b.rkt" "This is 1b\n" #f)
|
||||||
(one-mz-test "embed-me1d.rkt" "This is 1d\n" #f)
|
(one-mz-test "embed-me1c.rkt" "This is 1c\n" #f)
|
||||||
(one-mz-test "embed-me1e.rkt" "This is 1e\n" #f)
|
(one-mz-test "embed-me1d.rkt" "This is 1d\n" #f)
|
||||||
(one-mz-test "embed-me2.rkt" "This is 1\nThis is 2: #t\n" #t)
|
(one-mz-test "embed-me1e.rkt" "This is 1e\n" #f)
|
||||||
(one-mz-test "embed-me13.rkt" "This is 14\n" #f)
|
(one-mz-test "embed-me2.rkt" "This is 1\nThis is 2: #t\n" #t)
|
||||||
(one-mz-test "embed-me14.rkt" "This is 14\n" #f)
|
(one-mz-test "embed-me13.rkt" "This is 14\n" #f)
|
||||||
(one-mz-test "embed-me15.rkt" "This is 15.\n" #f)
|
(one-mz-test "embed-me14.rkt" "This is 14\n" #f)
|
||||||
(one-mz-test "embed-me17.rkt" "This is 17.\n" #f)
|
(one-mz-test "embed-me15.rkt" "This is 15.\n" #f)
|
||||||
(one-mz-test "embed-me18.rkt" "This is 18.\n" #f)
|
(one-mz-test "embed-me17.rkt" "This is 17.\n" #f)
|
||||||
(one-mz-test "embed-me19.rkt" "This is 19.\n" #f)
|
(one-mz-test "embed-me18.rkt" "This is 18.\n" #f)
|
||||||
(one-mz-test "embed-me21.rkt" "This is 21.\n" #f)
|
(one-mz-test "embed-me19.rkt" "This is 19.\n" #f)
|
||||||
|
(one-mz-test "embed-me21.rkt" "This is 21.\n" #f))
|
||||||
|
|
||||||
;; Try unicode expr and cmdline:
|
;; Try unicode expr and cmdline:
|
||||||
(prepare dest "unicode")
|
(prepare dest "unicode")
|
||||||
|
@ -261,10 +267,10 @@
|
||||||
(prepare mr-dest "embed-me5.rkt")
|
(prepare mr-dest "embed-me5.rkt")
|
||||||
(make-embedding-executable
|
(make-embedding-executable
|
||||||
mr-dest #t #f
|
mr-dest #t #f
|
||||||
`((#t (lib "embed-me5.rkt" "tests" "racket")))
|
`((#t (lib "embed-me5.rkt" "tests" "compiler" "embed")))
|
||||||
null
|
null
|
||||||
#f
|
#f
|
||||||
`("-l" "tests/racket/embed-me5.rkt"))
|
`("-l" "tests/compiler/embed/embed-me5.rkt"))
|
||||||
(try-exe mr-dest "This is 5: #<class:button%>\n" #t)))
|
(try-exe mr-dest "This is 5: #<class:button%>\n" #t)))
|
||||||
|
|
||||||
;; Try the raco interface:
|
;; Try the raco interface:
|
||||||
|
@ -277,7 +283,7 @@
|
||||||
"raco.exe"
|
"raco.exe"
|
||||||
"raco")))
|
"raco")))
|
||||||
|
|
||||||
(define (mzc-tests mred?)
|
(define (short-mzc-tests mred?)
|
||||||
(parameterize ([current-directory (find-system-path 'temp-dir)])
|
(parameterize ([current-directory (find-system-path 'temp-dir)])
|
||||||
|
|
||||||
;; raco exe
|
;; raco exe
|
||||||
|
@ -285,7 +291,7 @@
|
||||||
"exe"
|
"exe"
|
||||||
"-o" (path->string (mk-dest mred?))
|
"-o" (path->string (mk-dest mred?))
|
||||||
(if mred? "--gui" "--")
|
(if mred? "--gui" "--")
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me1.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me1.rkt")))
|
||||||
(try-exe (mk-dest mred?) "This is 1\n" mred?)
|
(try-exe (mk-dest mred?) "This is 1\n" mred?)
|
||||||
|
|
||||||
;; raco exe on a module with a `main' submodule
|
;; raco exe on a module with a `main' submodule
|
||||||
|
@ -293,7 +299,27 @@
|
||||||
"exe"
|
"exe"
|
||||||
"-o" (path->string (mk-dest mred?))
|
"-o" (path->string (mk-dest mred?))
|
||||||
(if mred? "--gui" "--")
|
(if mred? "--gui" "--")
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me16.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me16.rkt")))
|
||||||
|
(try-exe (mk-dest mred?) "This is 16.\n" mred?)))
|
||||||
|
|
||||||
|
(define (mzc-tests mred?)
|
||||||
|
(short-mzc-tests mred?)
|
||||||
|
(parameterize ([current-directory (find-system-path 'temp-dir)])
|
||||||
|
|
||||||
|
;; raco exe
|
||||||
|
(system* raco
|
||||||
|
"exe"
|
||||||
|
"-o" (path->string (mk-dest mred?))
|
||||||
|
(if mred? "--gui" "--")
|
||||||
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me1.rkt")))
|
||||||
|
(try-exe (mk-dest mred?) "This is 1\n" mred?)
|
||||||
|
|
||||||
|
;; raco exe on a module with a `main' submodule
|
||||||
|
(system* raco
|
||||||
|
"exe"
|
||||||
|
"-o" (path->string (mk-dest mred?))
|
||||||
|
(if mred? "--gui" "--")
|
||||||
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me16.rkt")))
|
||||||
(try-exe (mk-dest mred?) "This is 16.\n" mred?)
|
(try-exe (mk-dest mred?) "This is 16.\n" mred?)
|
||||||
|
|
||||||
;; raco exe on a module with a `main' submodule+
|
;; raco exe on a module with a `main' submodule+
|
||||||
|
@ -301,7 +327,7 @@
|
||||||
"exe"
|
"exe"
|
||||||
"-o" (path->string (mk-dest mred?))
|
"-o" (path->string (mk-dest mred?))
|
||||||
(if mred? "--gui" "--")
|
(if mred? "--gui" "--")
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me20.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me20.rkt")))
|
||||||
(try-exe (mk-dest mred?) "This is 20.\n" mred?)
|
(try-exe (mk-dest mred?) "This is 20.\n" mred?)
|
||||||
|
|
||||||
;; raco exe on a module with a `configure-runtime' submodule
|
;; raco exe on a module with a `configure-runtime' submodule
|
||||||
|
@ -309,7 +335,7 @@
|
||||||
"exe"
|
"exe"
|
||||||
"-o" (path->string (mk-dest mred?))
|
"-o" (path->string (mk-dest mred?))
|
||||||
(if mred? "--gui" "--")
|
(if mred? "--gui" "--")
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me22.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me22.rkt")))
|
||||||
(try-exe (mk-dest mred?) "Configure!\nThis is 22.\n" mred?)
|
(try-exe (mk-dest mred?) "Configure!\nThis is 22.\n" mred?)
|
||||||
|
|
||||||
;; raco exe on a module with serialization
|
;; raco exe on a module with serialization
|
||||||
|
@ -317,7 +343,7 @@
|
||||||
"exe"
|
"exe"
|
||||||
"-o" (path->string (mk-dest mred?))
|
"-o" (path->string (mk-dest mred?))
|
||||||
(if mred? "--gui" "--")
|
(if mred? "--gui" "--")
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me23.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me23.rkt")))
|
||||||
(try-exe (mk-dest mred?) "1\n2\n" mred?)
|
(try-exe (mk-dest mred?) "1\n2\n" mred?)
|
||||||
|
|
||||||
;; raco exe --launcher
|
;; raco exe --launcher
|
||||||
|
@ -326,7 +352,7 @@
|
||||||
"--launcher"
|
"--launcher"
|
||||||
"-o" (path->string (mk-dest mred?))
|
"-o" (path->string (mk-dest mred?))
|
||||||
(if mred? "--gui" "--")
|
(if mred? "--gui" "--")
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me1.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me1.rkt")))
|
||||||
(try-exe (mk-dest mred?) "This is 1\n" mred? #:dist? #f)
|
(try-exe (mk-dest mred?) "This is 1\n" mred? #:dist? #f)
|
||||||
|
|
||||||
;; the rest use mzc...
|
;; the rest use mzc...
|
||||||
|
@ -334,7 +360,7 @@
|
||||||
(system* mzc
|
(system* mzc
|
||||||
(if mred? "--gui-exe" "--exe")
|
(if mred? "--gui-exe" "--exe")
|
||||||
(path->string (mk-dest mred?))
|
(path->string (mk-dest mred?))
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me1.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me1.rkt")))
|
||||||
(try-exe (mk-dest mred?) "This is 1\n" mred?)
|
(try-exe (mk-dest mred?) "This is 1\n" mred?)
|
||||||
|
|
||||||
;; Check that etc.rkt isn't found if it's not included:
|
;; Check that etc.rkt isn't found if it's not included:
|
||||||
|
@ -342,7 +368,7 @@
|
||||||
(system* mzc
|
(system* mzc
|
||||||
(if mred? "--gui-exe" "--exe")
|
(if mred? "--gui-exe" "--exe")
|
||||||
(path->string (mk-dest mred?))
|
(path->string (mk-dest mred?))
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me6.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me6.rkt")))
|
||||||
(try-exe (mk-dest mred?) "This is 6\nno etc.ss\n" mred?)
|
(try-exe (mk-dest mred?) "This is 6\nno etc.ss\n" mred?)
|
||||||
|
|
||||||
;; And it is found if it is included:
|
;; And it is found if it is included:
|
||||||
|
@ -351,7 +377,7 @@
|
||||||
(if mred? "--gui-exe" "--exe")
|
(if mred? "--gui-exe" "--exe")
|
||||||
(path->string (mk-dest mred?))
|
(path->string (mk-dest mred?))
|
||||||
"++lib" "mzlib/etc.rkt"
|
"++lib" "mzlib/etc.rkt"
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me6.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me6.rkt")))
|
||||||
(try-exe (mk-dest mred?) "This is 6\n#t\n" mred?)
|
(try-exe (mk-dest mred?) "This is 6\n#t\n" mred?)
|
||||||
|
|
||||||
;; Or, it's found if we set the collection path:
|
;; Or, it's found if we set the collection path:
|
||||||
|
@ -361,7 +387,7 @@
|
||||||
(path->string (mk-dest mred?))
|
(path->string (mk-dest mred?))
|
||||||
"--collects-path"
|
"--collects-path"
|
||||||
(path->string (find-collects-dir))
|
(path->string (find-collects-dir))
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me6.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me6.rkt")))
|
||||||
;; Don't try a distribution for this one:
|
;; Don't try a distribution for this one:
|
||||||
(try-one-exe (mk-dest mred?) "This is 6\n#t\n" mred?)
|
(try-one-exe (mk-dest mred?) "This is 6\n#t\n" mred?)
|
||||||
|
|
||||||
|
@ -373,7 +399,7 @@
|
||||||
"++lib" "mzlib/etc.rkt"
|
"++lib" "mzlib/etc.rkt"
|
||||||
"--collects-dest" "cts"
|
"--collects-dest" "cts"
|
||||||
"--collects-path" "cts"
|
"--collects-path" "cts"
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me6.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me6.rkt")))
|
||||||
(try-exe (mk-dest mred?) "This is 6\n#t\n" mred? void "cts") ; <- cts copied to distribution
|
(try-exe (mk-dest mred?) "This is 6\n#t\n" mred? void "cts") ; <- cts copied to distribution
|
||||||
(delete-directory/files "cts")
|
(delete-directory/files "cts")
|
||||||
(test #f system* (mk-dest mred?))
|
(test #f system* (mk-dest mred?))
|
||||||
|
@ -382,7 +408,7 @@
|
||||||
|
|
||||||
(define (try-mzc)
|
(define (try-mzc)
|
||||||
(mzc-tests #f)
|
(mzc-tests #f)
|
||||||
(mzc-tests #t))
|
(short-mzc-tests #t))
|
||||||
|
|
||||||
(require dynext/file)
|
(require dynext/file)
|
||||||
(define (extension-test mred?)
|
(define (extension-test mred?)
|
||||||
|
@ -411,7 +437,7 @@
|
||||||
(system* mzc
|
(system* mzc
|
||||||
"--cc"
|
"--cc"
|
||||||
"-d" (path->string (path-only obj-file))
|
"-d" (path->string (path-only obj-file))
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me8.c")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me8.c")))
|
||||||
(system* mzc
|
(system* mzc
|
||||||
"--ld"
|
"--ld"
|
||||||
(path->string ext-file)
|
(path->string ext-file)
|
||||||
|
@ -419,7 +445,7 @@
|
||||||
|
|
||||||
(when (file-exists? ss-file)
|
(when (file-exists? ss-file)
|
||||||
(delete-file ss-file))
|
(delete-file ss-file))
|
||||||
(copy-file (build-path (collection-path "tests" "racket") "embed-me9.rkt")
|
(copy-file (build-path (collection-path "tests" "compiler" "embed") "embed-me9.rkt")
|
||||||
ss-file)
|
ss-file)
|
||||||
|
|
||||||
(system* mzc
|
(system* mzc
|
||||||
|
@ -436,7 +462,7 @@
|
||||||
(system* mzc
|
(system* mzc
|
||||||
(if mred? "--gui-exe" "--exe")
|
(if mred? "--gui-exe" "--exe")
|
||||||
(path->string (mk-dest mred?))
|
(path->string (mk-dest mred?))
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me10.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me10.rkt")))
|
||||||
(try-exe (mk-dest mred?) "#t\n" mred?)))
|
(try-exe (mk-dest mred?) "#t\n" mred?)))
|
||||||
|
|
||||||
(define (try-extension)
|
(define (try-extension)
|
||||||
|
@ -449,7 +475,7 @@
|
||||||
(system* mzc
|
(system* mzc
|
||||||
"--gui-exe"
|
"--gui-exe"
|
||||||
(path->string (mk-dest #t))
|
(path->string (mk-dest #t))
|
||||||
(path->string (build-path (collection-path "tests" "racket") "embed-me5.rkt")))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me5.rkt")))
|
||||||
(try-exe (mk-dest #t) "This is 5: #<class:button%>\n" #t)))
|
(try-exe (mk-dest #t) "This is 5: #<class:button%>\n" #t)))
|
||||||
|
|
||||||
;; Try including source that needs a reader extension
|
;; Try including source that needs a reader extension
|
||||||
|
@ -468,8 +494,8 @@
|
||||||
|
|
||||||
(create-embedding-executable
|
(create-embedding-executable
|
||||||
dest
|
dest
|
||||||
#:modules `((#t (lib ,filename "tests" "racket")))
|
#:modules `((#t (lib ,filename "tests" "compiler" "embed")))
|
||||||
#:cmdline `(,(flags "l") ,(string-append "tests/racket/" filename))
|
#:cmdline `(,(flags "l") ,(string-append "tests/compiler/embed/" filename))
|
||||||
#:src-filter (lambda (f)
|
#:src-filter (lambda (f)
|
||||||
(let-values ([(base name dir?) (split-path f)])
|
(let-values ([(base name dir?) (split-path f)])
|
||||||
(equal? name (path-replace-suffix (string->path filename)
|
(equal? name (path-replace-suffix (string->path filename)
|
||||||
|
@ -483,7 +509,8 @@
|
||||||
"embed-me~a-rd.rkt")
|
"embed-me~a-rd.rkt")
|
||||||
(if 12? "12" "11"))
|
(if 12? "12" "11"))
|
||||||
"tests"
|
"tests"
|
||||||
"racket"))
|
"compiler"
|
||||||
|
"embed"))
|
||||||
null)))
|
null)))
|
||||||
#:mred? mred?)
|
#:mred? mred?)
|
||||||
|
|
||||||
|
@ -506,9 +533,9 @@
|
||||||
|
|
||||||
(define (try-planet)
|
(define (try-planet)
|
||||||
(system* raco "planet" "link" "racket-tester" "p1.plt" "1" "0"
|
(system* raco "planet" "link" "racket-tester" "p1.plt" "1" "0"
|
||||||
(path->string (collection-path "tests" "racket" "embed-planet-1")))
|
(path->string (collection-path "tests" "compiler" "embed" "embed-planet-1")))
|
||||||
(system* raco "planet" "link" "racket-tester" "p2.plt" "2" "2"
|
(system* raco "planet" "link" "racket-tester" "p2.plt" "2" "2"
|
||||||
(path->string (collection-path "tests" "racket" "embed-planet-2")))
|
(path->string (collection-path "tests" "compiler" "embed" "embed-planet-2")))
|
||||||
|
|
||||||
(let ([go (lambda (path expected)
|
(let ([go (lambda (path expected)
|
||||||
(printf "Trying planet ~s...\n" path)
|
(printf "Trying planet ~s...\n" path)
|
||||||
|
@ -553,7 +580,7 @@
|
||||||
"exe"
|
"exe"
|
||||||
"-o" exe
|
"-o" exe
|
||||||
"--"
|
"--"
|
||||||
(path->string (build-path (collection-path "tests" "racket") src)))
|
(path->string (build-path (collection-path "tests" "compiler" "embed") src)))
|
||||||
(try-exe exe "10\n" #f))
|
(try-exe exe "10\n" #f))
|
||||||
|
|
||||||
(try-one "embed-bsl.rkt")
|
(try-one "embed-bsl.rkt")
|
||||||
|
@ -571,7 +598,3 @@
|
||||||
(try-reader)
|
(try-reader)
|
||||||
(try-planet)
|
(try-planet)
|
||||||
(try-*sl)
|
(try-*sl)
|
||||||
|
|
||||||
;; ----------------------------------------
|
|
||||||
|
|
||||||
(report-errs)
|
|
|
@ -661,6 +661,15 @@ path/s is either such a string or a list of them.
|
||||||
"pkgs/compiler-pkgs/compiler-lib/compiler/demodularizer/batch.rkt" drdr:command-line #f
|
"pkgs/compiler-pkgs/compiler-lib/compiler/demodularizer/batch.rkt" drdr:command-line #f
|
||||||
"pkgs/compiler-pkgs/compiler-test/tests/compiler" responsible (jay)
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler" responsible (jay)
|
||||||
"pkgs/compiler-pkgs/compiler-test/tests/compiler/demodularizer/demod-test.rkt" drdr:timeout 600
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/demodularizer/demod-test.rkt" drdr:timeout 600
|
||||||
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/embed" responsible (mflatt)
|
||||||
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me4.rktl" drdr:command-line #f
|
||||||
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me9.rkt" drdr:command-line #f
|
||||||
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/alt.rkt" drdr:command-line #f
|
||||||
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/dyn-sub.rkt" drdr:command-line #f
|
||||||
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/main.rkt" drdr:command-line #f
|
||||||
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/other.rkt" drdr:command-line #f
|
||||||
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-2" drdr:command-line #f
|
||||||
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/test.rkt" drdr:command-line #f
|
||||||
"pkgs/compiler-pkgs/compiler-test/tests/compiler/regression.rkt" responsible (mflatt)
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/regression.rkt" responsible (mflatt)
|
||||||
"pkgs/compiler-pkgs/compiler-test/tests/compiler/test" drdr:command-line (raco "test" "-r" "--" *)
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/test" drdr:command-line (raco "test" "-r" "--" *)
|
||||||
"pkgs/compiler-pkgs/compiler-test/tests/compiler/zo-test-worker.rkt" drdr:command-line #f
|
"pkgs/compiler-pkgs/compiler-test/tests/compiler/zo-test-worker.rkt" drdr:command-line #f
|
||||||
|
@ -1289,14 +1298,6 @@ path/s is either such a string or a list of them.
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/contract-stress-take-right.rkt" responsible (robby) drdr:command-line (racket "-r" *)
|
"pkgs/racket-pkgs/racket-test/tests/racket/contract-stress-take-right.rkt" responsible (robby) drdr:command-line (racket "-r" *)
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/date.rktl" drdr:random #t
|
"pkgs/racket-pkgs/racket-test/tests/racket/date.rktl" drdr:random #t
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/embed-in-c.rkt" drdr:command-line #f
|
"pkgs/racket-pkgs/racket-test/tests/racket/embed-in-c.rkt" drdr:command-line #f
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/embed-me4.rktl" drdr:command-line #f
|
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/embed-me9.rkt" drdr:command-line #f
|
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/embed-planet-1/alt.rkt" drdr:command-line #f
|
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/embed-planet-1/dyn-sub.rkt" drdr:command-line #f
|
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/embed-planet-1/main.rkt" drdr:command-line #f
|
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/embed-planet-1/other.rkt" drdr:command-line #f
|
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/embed-planet-2" drdr:command-line #f
|
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/embed.rktl" drdr:command-line #f
|
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/expand.rktl" drdr:command-line #f
|
"pkgs/racket-pkgs/racket-test/tests/racket/expand.rktl" drdr:command-line #f
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/file.rktl" drdr:command-line #f
|
"pkgs/racket-pkgs/racket-test/tests/racket/file.rktl" drdr:command-line #f
|
||||||
"pkgs/racket-pkgs/racket-test/tests/racket/filelib.rktl" drdr:command-line #f drdr:timeout 360
|
"pkgs/racket-pkgs/racket-test/tests/racket/filelib.rktl" drdr:command-line #f drdr:timeout 360
|
||||||
|
|
|
@ -1,2 +0,0 @@
|
||||||
#reader(lib "embed-me11-rd.ss" "tests" "racket")
|
|
||||||
"It goes to ~a!\n"
|
|
|
@ -1,2 +0,0 @@
|
||||||
#reader(lib "embed-me12-rd.rkt" "tests" "racket")
|
|
||||||
"It goes to ~a!\n"
|
|
|
@ -1,5 +0,0 @@
|
||||||
#lang racket/base
|
|
||||||
(require (submod tests/racket/embed-me18a sub))
|
|
||||||
(with-output-to-file "stdout"
|
|
||||||
(dynamic-require '(submod tests/racket/embed-me18a sub) 'print-18)
|
|
||||||
#:exists 'append)
|
|
Loading…
Reference in New Issue
Block a user