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

mason.test: fix outdated boot image check

db4
Slava Pestov 2010-03-18 17:25:56 +13:00
parent 8f92583946
commit aa4a9f8288
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,19 +58,21 @@ M: method word-vocabulary "method-generic" word-prop word-vocabulary ;
compiler-error-messages-file compiler-error-messages-file
do-step ; do-step ;
: check-boot-image ( -- ) : outdated-core-vocabs ( -- modified-sources modified-docs any? )
"" to-refresh drop 2dup [ empty? not ] either? "" to-refresh drop 2dup [ empty? not ] either? ;
[
"Boot image is out of date. Changed vocabs:" print : outdated-boot-image. ( modified-sources modified-docs -- )
members [ print ] each "Boot image is out of date. Changed vocabs:" print
flush union [ print ] each
1 exit flush ;
] [ 2drop ] if ;
: check-boot-image ( -- ? )
outdated-core-vocabs [ outdated-boot-image. t ] [ 2drop f ] if ;
: do-all ( -- ) : do-all ( -- )
".." [ ".." [
bootstrap-time get boot-time-file to-file bootstrap-time get boot-time-file to-file
check-boot-image check-boot-image [ 1 exit ] when
[ do-load ] benchmark load-time-file to-file [ do-load ] benchmark load-time-file to-file
[ generate-help ] benchmark html-help-time-file to-file [ generate-help ] benchmark html-help-time-file to-file
[ do-tests ] benchmark test-time-file to-file [ do-tests ] benchmark test-time-file to-file