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

builder.test: tweaks

db4
Eduardo Cavazos 2008-02-11 22:22:49 -06:00
parent 8a25e9432c
commit cb76e4775c
1 changed files with 32 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -15,26 +15,26 @@ IN: builder.test
[ bootstrap-time get . ]
with-stream ;
: try-everything* ( -- vocabs ) try-everything [ first vocab-link-name ] map ;
! : try-everything* ( -- vocabs ) try-everything [ first vocab-link-name ] map ;
! : do-load ( -- )
! [ try-everything* ] "../load-everything-time" log-runtime
! [
! "../load-everything-log" <file-writer>
! [ try-everything keys ]
! with-stream
! ] "../load-everything-time" log-runtime
! dup empty?
! [ drop ]
! [ "../load-everything-log" log-object ]
! if ;
! [ "../load-everything-vocabs" log-object ]
! if
! "../load-everything-log" delete-file ;
: do-load ( -- )
[
"../load-everything-log" <file-writer>
[ try-everything* ]
with-stream
] "../load-everything-time" log-runtime
[ try-everything keys ] "../load-everything-time" log-runtime
dup empty?
[ drop ]
[ "../load-everything-vocabs" log-object ]
if
"../load-everything-log" delete-file ;
if ;
! : do-tests ( -- )
! run-all-tests keys
@ -43,21 +43,33 @@ IN: builder.test
! [ "../failing-tests" log-object ]
! if ;
! : do-tests ( -- )
! [
! "../test-all-log" <file-writer>
! [ run-all-tests keys ]
! with-stream
! ] "../test-all-time" log-runtime
! dup empty?
! [ drop ]
! [ "../test-all-vocabs" log-object ]
! if
! "../test-all-log" delete-file ;
: do-tests ( -- )
[
"../test-all-log" <file-writer>
[ run-all-tests keys ]
with-stream
] "../test-all-time" log-runtime
[ run-all-tests keys ] "../test-all-time" log-runtime
dup empty?
[ drop ]
[ "../test-all-vocabs" log-object ]
if
"../test-all-log" delete-file ;
if ;
! : do-all ( -- )
! record-bootstrap-time
! [ do-load ] [ drop ] recover
! [ do-tests ] [ drop ] recover ;
: do-all ( -- )
record-bootstrap-time
[ do-load ] [ drop ] recover
[ do-tests ] [ drop ] recover ;
do-load
do-tests ;
MAIN: do-all