Renamed tests directory to make more sense with the new structure.

original commit: 7cfba9f02d48d10a886bf2cfce2499a26b8db9af
This commit is contained in:
Vincent St-Amour 2010-08-27 12:24:31 -04:00
parent 31342660e4
commit 989cd5ce81
96 changed files with 4 additions and 12 deletions

View File

@ -1,4 +0,0 @@
#lang typed/scheme
#:optimize
(require racket/unsafe/ops)
(conjugate (+ 1.0+2.0i 2.0+4.0i))

View File

@ -1,4 +0,0 @@
#lang typed/scheme
#:optimize
(require racket/unsafe/ops)
(+ (quotient 2 1) 1.0+2.0i 3.0+6.0i)

View File

@ -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))))