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

mason: filter out linakge errors from build reports

db4
Slava Pestov 2009-04-17 20:21:51 -05:00
parent b579d32e5c
commit a6ea915e09
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,10 +1,10 @@
! Copyright (C) 2008, 2009 Eduardo Cavazos, Slava Pestov. ! Copyright (C) 2008, 2009 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 USING: accessors assocs benchmark bootstrap.stage2 compiler.errors
compiler.errors generic help.html help.lint io.directories source-files.errors generic help.html help.lint io.directories
io.encodings.utf8 io.files kernel mason.common math namespaces io.encodings.utf8 io.files kernel mason.common math namespaces
prettyprint sequences sets sorting tools.test tools.time prettyprint sequences sets sorting tools.test tools.time tools.vocabs
tools.vocabs words system io tools.errors locals ; words system io tools.errors locals ;
IN: mason.test IN: mason.test
: do-load ( -- ) : do-load ( -- )
@ -20,7 +20,9 @@ M: word word-vocabulary vocabulary>> ;
M: method-body word-vocabulary "method-generic" word-prop word-vocabulary ; M: method-body word-vocabulary "method-generic" word-prop word-vocabulary ;
:: do-step ( errors summary-file details-file -- ) :: do-step ( errors summary-file details-file -- )
errors [ file>> ] map prune natural-sort summary-file to-file errors
[ error-type +linkage-error+ eq? not ] filter
[ 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 ( -- ) : do-compile-errors ( -- )