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

mason.test: forget test definitions to free up code heap space and hopefully get builds to complete on PowerPC

db4
Slava Pestov 2010-03-12 11:05:09 +13:00
parent 16ddd015d3
commit e3fd22268e
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,11 +1,12 @@
! Copyright (C) 2008, 2009 Eduardo Cavazos, Slava Pestov. ! Copyright (C) 2008, 2010 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs benchmark bootstrap.stage2 compiler.errors USING: accessors assocs benchmark bootstrap.stage2
source-files.errors generic help.html help.lint io.directories compiler.errors source-files.errors generic help.html help.lint
io.encodings.utf8 io.files kernel mason.common math namespaces io.directories io.encodings.utf8 io.files kernel mason.common
prettyprint sequences sets sorting tools.test tools.time math namespaces prettyprint sequences sets sorting tools.test
words system io tools.errors vocabs.hierarchy vocabs.errors tools.time words system io tools.errors vocabs vocabs.files
vocabs.refresh locals ; vocabs.hierarchy vocabs.errors vocabs.refresh locals
source-files compiler.units ;
IN: mason.test IN: mason.test
: do-load ( -- ) : do-load ( -- )
@ -32,6 +33,12 @@ M: method word-vocabulary "method-generic" word-prop word-vocabulary ;
test-all-errors-file test-all-errors-file
do-step ; do-step ;
: cleanup-tests ( -- )
! Free up some code heap space
[
vocabs [ vocab-tests [ forget-source ] each ] each
] with-compilation-unit ;
: do-help-lint ( -- ) : do-help-lint ( -- )
help-lint-all lint-failures get values help-lint-all lint-failures get values
help-lint-vocabs-file help-lint-vocabs-file
@ -67,6 +74,7 @@ M: method word-vocabulary "method-generic" word-prop word-vocabulary ;
[ 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
cleanup-tests
[ do-help-lint ] benchmark help-lint-time-file to-file [ do-help-lint ] benchmark help-lint-time-file to-file
[ do-benchmarks ] benchmark benchmark-time-file to-file [ do-benchmarks ] benchmark benchmark-time-file to-file
do-compile-errors do-compile-errors