suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Switching many uses of old Schemeunit to new

Browse Source 
svn: r18360

original commit: dd31aa951201c1c1397875d54ecc0c875f2bfc42
This commit is contained in:
Jay McCarthy 2010-02-26 20:39:56 +00:00
parent 6409d4b79a
commit 3a4f5fb119
6 changed files with 21 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/tests/macro-debugger/all-tests.ss
View File

@ -1,7 +1,6 @@
#lang scheme/base #lang scheme/base
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 9)) (require schemeunit
(planet "graphical-ui.ss" ("schematics" "schemeunit.plt" 2 9))) schemeunit/gui)
(require macro-debugger/model/debug (require macro-debugger/model/debug
"gentest-framework.ss" "gentest-framework.ss"
"gentests.ss" "gentests.ss"
@ -16,8 +15,8 @@
"tests/collects.ss") "tests/collects.ss")
(provide go) (provide go)
(define (go) (test/graphical-ui all-tests)) (define (go) (test/gui all-tests))
(define (collects) (test/graphical-ui big-libs-tests)) (define (collects) (test/gui big-libs-tests))
(define protos (define protos
(list proto:kernel-forms (list proto:kernel-forms

8
collects/tests/macro-debugger/gentests.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 9)) (require schemeunit)
macro-debugger/model/debug (require macro-debugger/model/debug
macro-debugger/model/stx-util macro-debugger/model/stx-util
"gentest-framework.ss" "gentest-framework.ss"
"test-setup.ss") "test-setup.ss")
@ -23,7 +23,7 @@
(mk-test "Hiding: Reductions" checker-for-hidden-steps protos)) (mk-test "Hiding: Reductions" checker-for-hidden-steps protos))
(define (mk-test label checker protos) (define (mk-test label checker protos)
(apply test-suite label (make-test-suite label
(filter values (filter values
(map (mk-gen-test checker) protos)))) (map (mk-gen-test checker) protos))))
@ -33,7 +33,7 @@
[(struct collection (label contents)) [(struct collection (label contents))
(let ([tests (filter values (map gen contents))]) (let ([tests (filter values (map gen contents))])
(and (pair? tests) (and (pair? tests)
(apply test-suite label tests)))] (make-test-suite label tests)))]
[(struct individual (label form attrs)) [(struct individual (label form attrs))
(f label form attrs)])) (f label form attrs)]))
gen) gen)

10
collects/tests/macro-debugger/tests/collects.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 9)) (require schemeunit
(planet "graphical-ui.ss" ("schematics" "schemeunit.plt" 2 9))) schemeunit/gui)
(require macro-debugger/model/debug (require macro-debugger/model/debug
scheme/path scheme/path
scheme/gui) scheme/gui)
@ -47,11 +47,11 @@
(define (test-libs name mods) (define (test-libs name mods)
(test-suite name (test-suite name
(apply test-suite "Trace & Parse" (apply make-test-suite "Trace & Parse"
(for/list ([m mods]) (test-lib/deriv m))) (for/list ([m mods]) (test-lib/deriv m)))
(apply test-suite "Reductions" (apply make-test-suite "Reductions"
(for/list ([m mods]) (test-lib/hide m hide-none-policy))) (for/list ([m mods]) (test-lib/hide m hide-none-policy)))
(apply test-suite "Standard hiding" (apply make-test-suite "Standard hiding"
(for/list ([m mods]) (test-lib/hide m standard-policy))))) (for/list ([m mods]) (test-lib/hide m standard-policy)))))
(define (test-lib/deriv m) (define (test-lib/deriv m)

5
collects/tests/macro-debugger/tests/hiding.ss
View File

@ -1,7 +1,6 @@
#lang scheme/base #lang scheme/base
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 8)) (require schemeunit)
macro-debugger/model/debug (require macro-debugger/model/debug
"../test-setup.ss") "../test-setup.ss")
(provide specialized-hiding-tests) (provide specialized-hiding-tests)

5
collects/tests/macro-debugger/tests/policy.ss
View File

@ -1,7 +1,6 @@
#lang scheme/base #lang scheme/base
(require schemeunit)
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 8)) (require macro-debugger/model/debug
macro-debugger/model/debug
"../test-setup.ss") "../test-setup.ss")
(provide policy-tests) (provide policy-tests)

4
collects/tests/macro-debugger/tests/regression.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 8)) (require schemeunit)
macro-debugger/model/debug (require macro-debugger/model/debug
macro-debugger/model/steps macro-debugger/model/steps
"../test-setup.ss") "../test-setup.ss")
(provide regression-tests) (provide regression-tests)