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

builder: fix bug

db4
Eduardo Cavazos 2008-03-14 00:17:17 -06:00
parent acdbfeb728
commit 628e213a20
3 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/builder/benchmark/benchmark.factor
View File

@ -21,7 +21,7 @@ IN: builder.benchmark
[ benchmark-difference ] with map ; [ benchmark-difference ] with map ;
: benchmark-deltas ( -- table ) : benchmark-deltas ( -- table )
"../../benchmarks" "../benchmarks" [ eval-file ] 2apply "../benchmarks" "benchmarks" [ eval-file ] 2apply
compare-tables compare-tables
sort-values ; sort-values ;

4
extra/builder/builder.factor
View File

@ -4,6 +4,7 @@ USING: kernel namespaces sequences splitting system combinators continuations
bootstrap.image benchmark vars bake smtp builder.util accessors bootstrap.image benchmark vars bake smtp builder.util accessors
io.encodings.utf8 io.encodings.utf8
calendar calendar
tools.test
builder.common builder.common
builder.benchmark builder.benchmark
builder.release ; builder.release ;
@ -131,7 +132,10 @@ SYMBOL: build-status
"Test time: " write "test-time" eval-file milli-seconds>time print nl "Test time: " write "test-time" eval-file milli-seconds>time print nl
"Did not pass load-everything: " print "load-everything-vocabs" cat "Did not pass load-everything: " print "load-everything-vocabs" cat
"Did not pass test-all: " print "test-all-vocabs" cat "Did not pass test-all: " print "test-all-vocabs" cat
"test-all-vocabs" eval-file test-failures.
"help-lint results:" print "help-lint" cat "help-lint results:" print "help-lint" cat
"Benchmarks: " print "benchmarks" eval-file benchmarks. "Benchmarks: " print "benchmarks" eval-file benchmarks.

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

@ -16,18 +16,18 @@ IN: builder.test
: do-load ( -- ) : do-load ( -- )
try-everything keys "../load-everything-vocabs" utf8 [ . ] with-file-writer ; try-everything keys "../load-everything-vocabs" utf8 [ . ] with-file-writer ;
! : do-tests ( -- )
! run-all-tests keys "../test-all-vocabs" utf8 [ . ] with-file-writer ;
: do-tests ( -- ) : do-tests ( -- )
run-all-tests run-all-tests keys "../test-all-vocabs" utf8 [ . ] with-file-writer ;
"../test-all-vocabs" utf8
[ ! : do-tests ( -- )
[ keys . ] ! run-all-tests
[ test-failures. ] ! "../test-all-vocabs" utf8
bi ! [
] ! [ keys . ]
with-file-writer ; ! [ test-failures. ]
! bi
! ]
! with-file-writer ;
: do-help-lint ( -- ) : do-help-lint ( -- )
"" run-help-lint "../help-lint" utf8 [ typos. ] with-file-writer ; "" run-help-lint "../help-lint" utf8 [ typos. ] with-file-writer ;