(module instaweb-servlet-config mzscheme
(require (lib "contract.ss"))
(require (file "base.ss")
(file "core.ss"))
(define *target-path* "servlet.ss")
(define (target-require-form)
(if *target-path*
`(file ,(path->string *target-path*))
(raise-exn exn:fail:delirium "No target servlet specified.")))
(define (set-target-servlet-path! path)
(set! *target-path* path))
(define *target-test* #f)
(define (target-test)
(if *target-test*
*target-test*
(raise-exn exn:fail:delirium "No target test specified.")))
(define (set-target-test! test)
(set! *target-test* test))
(define *test-runner* test/text-ui/pause-on-fail)
(define (test-runner)
*test-runner*)
(define (set-test-runner! test-runner)
(set! *test-runner* test-runner))
(provide/contract
[target-require-form (-> (list/c (symbols 'file) string?))]
[target-test (-> schemeunit-test?)]
[test-runner (-> (-> schemeunit-test? any))]
[set-target-servlet-path! (-> (or/c path? string?) void?)]
[set-target-test! (-> schemeunit-test? void?)]
[set-test-runner! (-> (-> schemeunit-test? any) void?)])
)