2008-02-06 05:26:13 -05:00
|
|
|
|
|
|
|
|
USING: kernel sequences assocs builder continuations vocabs vocabs.loader
|
|
|
|
|
io
|
|
|
|
|
io.files
|
|
|
|
|
tools.browser
|
|
|
|
|
tools.test ;
|
|
|
|
|
|
|
|
|
|
IN: builder.test
|
|
|
|
|
|
|
|
|
|
: do-load ( -- )
|
2008-02-06 07:10:55 -05:00
|
|
|
[
|
|
|
|
|
[ load-everything ]
|
|
|
|
|
[ require-all-error-vocabs "../load-everything-log" log-object ]
|
|
|
|
|
recover
|
|
|
|
|
]
|
|
|
|
|
"../load-everything-time" log-runtime ;
|
2008-02-06 05:26:13 -05:00
|
|
|
|
|
|
|
|
: do-tests ( -- )
|
|
|
|
|
"" child-vocabs
|
|
|
|
|
[ vocab-source-loaded? ] subset
|
|
|
|
|
[ vocab-tests-path ] map
|
|
|
|
|
[ dup [ ?resource-path exists? ] when ] subset
|
|
|
|
|
[ dup run-test ] { } map>assoc
|
|
|
|
|
[ second empty? not ] subset
|
|
|
|
|
dup empty?
|
|
|
|
|
[ drop ]
|
|
|
|
|
[
|
|
|
|
|
"../failing-tests" <file-writer>
|
|
|
|
|
[ [ nl failures. ] assoc-each ]
|
|
|
|
|
with-stream
|
|
|
|
|
]
|
|
|
|
|
if ;
|
|
|
|
|
|
|
|
|
|
: do-all ( -- ) do-load do-tests ;
|
|
|
|
|
|
|
|
|
|
MAIN: do-all
|
