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
do-step ;
: check-boot-image ( -- )
"" to-refresh drop 2dup [ empty? not ] either?
[
"Boot image is out of date. Changed vocabs:" print
members [ print ] each
flush
1 exit
] [ 2drop ] if ;
: outdated-core-vocabs ( -- modified-sources modified-docs any? )
"" to-refresh drop 2dup [ empty? not ] either? ;
: outdated-boot-image. ( modified-sources modified-docs -- )
"Boot image is out of date. Changed vocabs:" print
union [ print ] each
flush ;
: check-boot-image ( -- ? )
outdated-core-vocabs [ outdated-boot-image. t ] [ 2drop f ] if ;
: do-all ( -- )
".." [
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
[ generate-help ] benchmark html-help-time-file to-file
[ do-tests ] benchmark test-time-file to-file