796b0796f4
Unless `-s` or `--submodule` is specified, and as long as each test is run in its own place or process, require a `configure-runtime` submodule of the specified module before running the module or its `test` submodule. For example, this change makes `raco test` run `htdp/bsl` tests with printing configured correctly for `htdp/bsl`.
30 lines
815 B
Racket
30 lines
815 B
Racket
#lang racket/base
|
|
(require racket/system
|
|
compiler/find-exe)
|
|
|
|
(define exe (find-exe))
|
|
|
|
(define (try mode mod expect)
|
|
(printf "trying ~s ~s\n" mod mode)
|
|
(define s (open-output-bytes))
|
|
(parameterize ([current-output-port s])
|
|
(system* exe "-l-" "raco" "test"
|
|
mode "-l" (string-append "tests/compiler/test/" mod)))
|
|
(define last-line
|
|
(for/fold ([prev #f]) ([s (in-lines (open-input-bytes (get-output-bytes s)))])
|
|
(if (or (eof-object? s)
|
|
(equal? s "1 test passed"))
|
|
prev
|
|
s)))
|
|
(unless (equal? expect last-line)
|
|
(error 'runtime "test failed\n module: ~s\n expected: ~s\n got: ~s"
|
|
mod expect last-line)))
|
|
|
|
(for ([mod '("--direct" "--place" "--process")])
|
|
(try mod "racket.rkt" "'(1 2)")
|
|
(try mod "scheme.rkt" "(1 2)"))
|
|
|
|
|
|
|
|
|