Renamed tests directory to make more sense with the new structure.
original commit: 7cfba9f02d48d10a886bf2cfce2499a26b8db9af
This commit is contained in:
parent
31342660e4
commit
989cd5ce81
|
@ -1,4 +0,0 @@
|
|||
#lang typed/scheme
|
||||
#:optimize
|
||||
(require racket/unsafe/ops)
|
||||
(conjugate (+ 1.0+2.0i 2.0+4.0i))
|
|
@ -1,4 +0,0 @@
|
|||
#lang typed/scheme
|
||||
#:optimize
|
||||
(require racket/unsafe/ops)
|
||||
(+ (quotient 2 1) 1.0+2.0i 3.0+6.0i)
|
|
@ -7,7 +7,7 @@
|
|||
(call-with-trusted-sandbox-configuration
|
||||
(lambda ()
|
||||
(parameterize ([current-load-relative-directory
|
||||
(build-path here "generic")]
|
||||
(build-path here "tests")]
|
||||
[sandbox-memory-limit #f] ; TR needs memory
|
||||
[sandbox-output 'string]
|
||||
[sandbox-namespace-specs
|
||||
|
@ -28,7 +28,7 @@
|
|||
out)))))
|
||||
|
||||
(define (generate-opt-log name)
|
||||
(parameterize ([current-load-relative-directory (build-path here "generic")]
|
||||
(parameterize ([current-load-relative-directory (build-path here "tests")]
|
||||
[current-command-line-arguments '#("--log-optimizations")])
|
||||
(with-output-to-string
|
||||
(lambda ()
|
||||
|
@ -60,11 +60,11 @@
|
|||
|
||||
(let ((n-failures
|
||||
(if (> (vector-length (current-command-line-arguments)) 0)
|
||||
(if (test (format "generic/~a.rkt"
|
||||
(if (test (format "tests/~a.rkt"
|
||||
(vector-ref (current-command-line-arguments) 0)))
|
||||
0 1)
|
||||
(for/fold ((n-failures 0))
|
||||
((gen (in-directory (build-path here "generic"))))
|
||||
((gen (in-directory (build-path here "tests"))))
|
||||
(+ n-failures (if (test gen) 0 1))))))
|
||||
(unless (= n-failures 0)
|
||||
(error (format "~a tests failed." n-failures))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user