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

zealot.factor: Test core, load basis and extra images for testing.

modern-harvey2
Doug Coleman 2017-09-16 06:38:11 -05:00
parent 3dc8f5e039
commit 1b138a74ec
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
extra/zealot/factor/factor.factor
View File

@ -4,8 +4,9 @@ USING: accessors arrays bootstrap.image calendar cli.git
combinators concurrency.combinators formatting fry http.client combinators concurrency.combinators formatting fry http.client
io io.directories io.launcher io.pathnames kernel math.parser io io.directories io.launcher io.pathnames kernel math.parser
memory modern.paths namespaces parser.notes prettyprint memory modern.paths namespaces parser.notes prettyprint
sequences system system-info threads tools.test vocabs sequences sequences.extras system system-info threads tools.test
vocabs.hierarchy vocabs.hierarchy.private vocabs.loader zealot ; vocabs vocabs.hierarchy vocabs.hierarchy.private vocabs.loader
zealot ;
IN: zealot.factor IN: zealot.factor
: download-boot-checksums ( path branch -- ) : download-boot-checksums ( path branch -- )
@ -65,9 +66,11 @@ M: windows factor-path "./factor.com" ;
: zealot-load-extra ( -- ) extra-vocabs "factor.image.extra" zealot-load-and-save ; : zealot-load-extra ( -- ) extra-vocabs "factor.image.extra" zealot-load-and-save ;
! like ``"" load`` -- only platform-friendly vocabs ! like ``"" load`` -- only platform-friendly vocabs
: zealot-all-vocabs ( -- seq ) vocab-roots get [ "" vocabs-to-load [ vocab-name ] map ] map ; : zealot-vocabs-from-root ( root -- seq ) "" vocabs-to-load [ vocab-name ] map ;
: zealot-basis-vocabs ( -- seq ) "resource:basis" "" vocabs-to-load [ vocab-name ] map ; : zealot-all-vocabs ( -- seq ) vocab-roots get [ zealot-vocabs-from-root ] map-concat ;
: zealot-extra-vocabs ( -- seq ) "resource:extra" "" vocabs-to-load [ vocab-name ] map ; : zealot-core-vocabs ( -- seq ) "resource:core" zealot-vocabs-from-root ;
: zealot-basis-vocabs ( -- seq ) "resource:basis" zealot-vocabs-from-root ;
: zealot-extra-vocabs ( -- seq ) "resource:extra" zealot-vocabs-from-root ;
: zealot-load-all ( -- ) zealot-all-vocabs "factor.image.all" zealot-load-and-save ; : zealot-load-all ( -- ) zealot-all-vocabs "factor.image.all" zealot-load-and-save ;
@ -99,19 +102,26 @@ M: windows factor-path "./factor.com" ;
: zealot-test-all ( -- ) : zealot-test-all ( -- )
[ test-all ] with-child-options ; [ test-all ] with-child-options ;
: zealot-test-command ( log-path -- process ) : zealot-test-command ( command log-path -- process )
<process> <process>
factor-path "-e=USE: tools.test test-all" 2array >>command
+closed+ >>stdin
swap >>stdout swap >>stdout
swap >>command
+closed+ >>stdin
+stdout+ >>stderr +stdout+ >>stderr
60 minutes >>timeout 60 minutes >>timeout
+new-group+ >>group ; +new-group+ >>group ;
: zealot-test-commands ( path -- ) : zealot-test-commands ( path -- )
[ [
factor-path "-i=factor.image" "-e=USE: tools.test test-all" 3array
"./test-core-log" zealot-test-command
factor-path "-i=factor.image.basis" "-e=USE: tools.test test-all" 3array
"./test-basis-log" zealot-test-command "./test-basis-log" zealot-test-command
"./test-extra-log" zealot-test-command 2array
factor-path "-i=factor.image.extra" "-e=USE: tools.test test-all" 3array
"./test-extra-log" zealot-test-command 3array
[ try-process ] parallel-each [ try-process ] parallel-each
] with-directory ; ] with-directory ;