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

update builder.test

db4
Eduardo Cavazos 2008-02-06 06:10:55 -06:00
parent 7d2f6b32f5
commit a5c69dae63
2 changed files with 6 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
extra/builder/load-everything/load-everything.factor
View File

@ -1,23 +0,0 @@
USING: kernel continuations io io.files prettyprint vocabs.loader
tools.time tools.browser ;
IN: builder.load-everything
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: runtime ( quot -- time ) benchmark nip ;
: log-runtime ( quot file -- )
>r runtime r> <file-writer> [ . ] with-stream ;
: log-object ( object file -- ) <file-writer> [ . ] with-stream ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: do-load-everything ( -- )
[ [ load-everything ] catch ] "../load-everything-time" log-runtime
[ require-all-error-vocabs "../load-everything-log" log-object ]
when ;
MAIN: do-load-everything

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

@ -8,9 +8,12 @@ USING: kernel sequences assocs builder continuations vocabs vocabs.loader
IN: builder.test
: do-load ( -- )
[ [ load-everything ] catch ] "../load-everything-time" log-runtime
[ require-all-error-vocabs "../load-everything-log" log-object ]
when* ;
[
[ load-everything ]
[ require-all-error-vocabs "../load-everything-log" log-object ]
recover
]
"../load-everything-time" log-runtime ;
: do-tests ( -- )
"" child-vocabs