44 lines
1.2 KiB
Scheme
44 lines
1.2 KiB
Scheme
|
|
#lang scheme/base
|
|
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 9))
|
|
(planet "graphical-ui.ss" ("schematics" "schemeunit.plt" 2 9)))
|
|
(require macro-debugger/model/debug
|
|
"gentest-framework.ss"
|
|
"gentests.ss"
|
|
"test-setup.ss"
|
|
"tests/syntax-basic.ss"
|
|
"tests/syntax-macros.ss"
|
|
"tests/syntax-modules.ss"
|
|
"tests/syntax-errors.ss"
|
|
"tests/hiding.ss"
|
|
"tests/regression.ss"
|
|
"tests/policy.ss"
|
|
"tests/collects.ss")
|
|
(provide go)
|
|
|
|
(define (go) (test/graphical-ui all-tests))
|
|
(define (collects) (test/graphical-ui big-libs-tests))
|
|
|
|
(define protos
|
|
(list proto:kernel-forms
|
|
proto:kernel-contexts
|
|
proto:macros
|
|
proto:modules
|
|
proto:errors))
|
|
|
|
(define deriv-test (mk-deriv-test protos))
|
|
(define steps-test (mk-steps-test protos))
|
|
(define hiding-deriv-test (mk-hidden-deriv-test protos))
|
|
(define hiding-steps-test (mk-hidden-steps-test protos))
|
|
|
|
(define all-tests
|
|
(test-suite "All tests"
|
|
deriv-test
|
|
steps-test
|
|
hiding-deriv-test
|
|
hiding-steps-test
|
|
specialized-hiding-tests
|
|
regression-tests
|
|
#;seek-tests
|
|
policy-tests))
|