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-07 19:30:20 -05:00
|
|
|
[ try-everything ] "../load-everything-time" log-runtime
|
|
|
|
|
dup empty?
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ "../load-everything-log" log-object ]
|
|
|
|
|
if ;
|
|
|
|
|
|
2008-02-06 05:26:13 -05:00
|
|
|
: do-tests ( -- )
|
2008-02-07 19:30:20 -05:00
|
|
|
run-all-tests keys
|
2008-02-06 05:26:13 -05:00
|
|
|
dup empty?
|
|
|
|
|
[ drop ]
|
2008-02-07 19:30:20 -05:00
|
|
|
[ "../failing-tests" log-object ]
|
2008-02-06 05:26:13 -05:00
|
|
|
if ;
|
|
|
|
|
|
|
|
|
|
: do-all ( -- ) do-load do-tests ;
|
|
|
|
|
|
|
|
|
|
MAIN: do-all
|
