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

make the example-test private file's work be behind a thunk (so more drdr friendly)

Browse Source
This commit is contained in:
Robby Findler 2011-01-17 15:02:54 -06:00
parent 36155e913e
commit ff800c997e
2 changed files with 63 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/drracket/example-tool.rkt
View File

@ -29,4 +29,6 @@
(cons (cons
new-collection-root new-collection-root
(current-library-collection-paths))]) (current-library-collection-paths))])
(namespace-require 'tests/drracket/private/run-example-tool)) (namespace-require 'tests/drracket/private/run-example-tool)
(eval '(go)))

7
collects/tests/drracket/private/run-example-tool.rkt
View File

@ -20,6 +20,10 @@
framework/test framework/test
mrlib/switchable-button) mrlib/switchable-button)
(provide go)
(define (go)
(define init-options@ (define init-options@
(unit (import setup-option^) (unit (import setup-option^)
(export) (export)
@ -76,5 +80,4 @@
(fprintf (current-error-port) (fprintf (current-error-port)
"example-tool.rkt: test failed;\nexpected ~s\n but got ~s" "example-tool.rkt: test failed;\nexpected ~s\n but got ~s"
expected expected
content)))) content)))))