steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

mason.test: collect compiler errors at the very end of the process, to catch errors in unit test files

db4
Slava Pestov 2009-04-22 07:07:24 -05:00
parent 3353a777f7
commit 91cd13d2d6
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/mason/test/test.factor
View File

@ -25,12 +25,6 @@ M: method-body word-vocabulary "method-generic" word-prop word-vocabulary ;
[ file>> ] map prune natural-sort summary-file to-file [ file>> ] map prune natural-sort summary-file to-file
errors details-file utf8 [ errors. ] with-file-writer ; errors details-file utf8 [ errors. ] with-file-writer ;
: do-compile-errors ( -- )
compiler-errors get values
compiler-errors-file
compiler-error-messages-file
do-step ;
: do-tests ( -- ) : do-tests ( -- )
test-all test-failures get test-all test-failures get
test-all-vocabs-file test-all-vocabs-file
@ -50,6 +44,12 @@ M: method-body word-vocabulary "method-generic" word-prop word-vocabulary ;
[ benchmark-error-messages-file utf8 [ benchmark-errors. ] with-file-writer ] bi [ benchmark-error-messages-file utf8 [ benchmark-errors. ] with-file-writer ] bi
] bi* ; ] bi* ;
: do-compile-errors ( -- )
compiler-errors get values
compiler-errors-file
compiler-error-messages-file
do-step ;
: benchmark-ms ( quot -- ms ) : benchmark-ms ( quot -- ms )
benchmark 1000 /i ; inline benchmark 1000 /i ; inline
@ -66,11 +66,12 @@ M: method-body word-vocabulary "method-generic" word-prop word-vocabulary ;
".." [ ".." [
bootstrap-time get boot-time-file to-file bootstrap-time get boot-time-file to-file
check-boot-image check-boot-image
[ do-load do-compile-errors ] benchmark-ms load-time-file to-file [ do-load ] benchmark-ms load-time-file to-file
[ generate-help ] benchmark-ms html-help-time-file to-file [ generate-help ] benchmark-ms html-help-time-file to-file
[ do-tests ] benchmark-ms test-time-file to-file [ do-tests ] benchmark-ms test-time-file to-file
[ do-help-lint ] benchmark-ms help-lint-time-file to-file [ do-help-lint ] benchmark-ms help-lint-time-file to-file
[ do-benchmarks ] benchmark-ms benchmark-time-file to-file [ do-benchmarks ] benchmark-ms benchmark-time-file to-file
do-compile-errors
] with-directory ; ] with-directory ;
MAIN: do-all MAIN: do-all