61 lines
2.5 KiB
Racket
61 lines
2.5 KiB
Racket
#lang racket
|
|
(require racket/vector racket/gui/dynamic rackunit)
|
|
|
|
(require "main.rkt")
|
|
|
|
(define exec (make-parameter go/text))
|
|
(define nightly? (make-parameter #f))
|
|
(define unit? (make-parameter #f))
|
|
(define int? (make-parameter #f))
|
|
(define opt? (make-parameter #f))
|
|
(define missed-opt? (make-parameter #f))
|
|
(define bench? (make-parameter #f))
|
|
(define math? (make-parameter #f))
|
|
(define single (make-parameter #f))
|
|
(current-namespace (make-base-namespace))
|
|
(command-line
|
|
#:once-each
|
|
["-v" "verbose" (verbose? #t)]
|
|
["--unit" "run the unit tests" (unit? #t)]
|
|
["--int" "run the integration tests" (int? #t)]
|
|
["--opt" "run the optimization tests" (opt? #t)]
|
|
["--missed-opt" "run the missed optimization tests" (missed-opt? #t)]
|
|
["--benchmarks" "compile the typed benchmarks" (bench? #t)]
|
|
["--math" "compile the math library" (math? #t)]
|
|
["--just" path "run only this test" (single (just-one path))]
|
|
["--nightly" "for the nightly builds" (begin (nightly? #t) (unit? #t) (opt? #t) (missed-opt? #t) (places 1))]
|
|
["--all" "run all tests" (begin (unit? #t) (int? #t) (opt? #t) (missed-opt? #t) (bench? #t) (math? #t))]
|
|
["-j" num "number of places to use"
|
|
(let ([n (string->number num)])
|
|
(places (and (integer? n) (> n 1) n)))]
|
|
["--gui" "run using the gui"
|
|
(if (gui-available?)
|
|
(exec go)
|
|
(error "GUI not available"))])
|
|
|
|
(start-workers)
|
|
|
|
(if (and (nightly?) (eq? 'cgc (system-type 'gc)))
|
|
(printf "Skipping Typed Racket tests.\n")
|
|
(let ([to-run (cond [(single) (single)]
|
|
[else
|
|
(make-test-suite
|
|
"Typed Racket Tests"
|
|
(append (if (unit?) (list unit-tests) '())
|
|
(if (int?) (list (int-tests)) '())
|
|
(if (opt?) (list (optimization-tests)) '())
|
|
(if (missed-opt?) (list (missed-optimization-tests)) '())
|
|
(if (bench?) (list (compile-benchmarks)) '())
|
|
(if (math?) (list (compile-math)) '())))])])
|
|
(unless (= 0 ((exec) to-run))
|
|
(eprintf "Typed Racket Tests did not pass.\n")
|
|
(exit 1))))
|
|
|
|
;; Test mode:
|
|
(module test racket/base
|
|
(require syntax/location)
|
|
(parameterize ([current-command-line-arguments (vector "--nightly")])
|
|
(dynamic-require (quote-module-path "..") 0))
|
|
(module config info
|
|
(define timeout 1800)))
|