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

factor: Really disable long unit tests for zealot. Only test root by 

root.
modern-harvey2
Doug Coleman 2017-09-16 11:08:35 -05:00
parent 122a73b5ac
commit 153f5372d3
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/tools/test/test.factor
View File

@ -164,6 +164,8 @@ SYMBOL: forget-tests?
forget-tests? get forget-tests? get
[ [ [ forget-source ] each ] with-compilation-unit ] [ drop ] if ; [ [ [ forget-source ] each ] with-compilation-unit ] [ drop ] if ;
PRIVATE>
: test-vocab ( vocab -- ) : test-vocab ( vocab -- )
lookup-vocab dup [ lookup-vocab dup [
dup source-loaded?>> [ dup source-loaded?>> [
@ -176,8 +178,6 @@ SYMBOL: forget-tests?
: test-vocabs ( vocabs -- ) [ test-vocab ] each ; : test-vocabs ( vocabs -- ) [ test-vocab ] each ;
PRIVATE>
: with-test-file ( ..a quot: ( ..a path -- ..b ) -- ..b ) : with-test-file ( ..a quot: ( ..a path -- ..b ) -- ..b )
'[ "" "" _ cleanup-unique-file ] with-temp-directory ; inline '[ "" "" _ cleanup-unique-file ] with-temp-directory ; inline

10
extra/zealot/factor/factor.factor
View File

@ -99,10 +99,6 @@ M: windows factor-path "./factor.com" ;
[ try-process ] parallel-each [ try-process ] parallel-each
] with-directory ; ] with-directory ;
! Meant to run in the child process
: zealot-test-all ( -- )
[ test-all ] with-child-options ;
: zealot-test-command ( command log-path -- process ) : zealot-test-command ( command log-path -- process )
<process> <process>
swap >>stdout swap >>stdout
@ -114,13 +110,13 @@ M: windows factor-path "./factor.com" ;
: zealot-test-commands ( path -- ) : zealot-test-commands ( path -- )
[ [
factor-path "-i=factor.image" "-e=USE: tools.test test-all" 3array factor-path "-i=factor.image" "-e=USE: zealot.factor USE: tools.test [ zealot-core-vocabs test-vocabs ] with-child-options" 3array
"./test-core-log" zealot-test-command "./test-core-log" zealot-test-command
factor-path "-i=factor.image.basis" "-e=USE: tools.test test-all" 3array factor-path "-i=factor.image.basis" "-e=USE: zealot.factor USE: tools.test [ zealot-basis-vocabs test-vocabs ] with-child-options" 3array
"./test-basis-log" zealot-test-command "./test-basis-log" zealot-test-command
factor-path "-i=factor.image.extra" "-e=USE: tools.test test-all" 3array factor-path "-i=factor.image.extra" "-e=USE: zealot.factor USE: tools.test [ zealot-extra-vocabs test-vocabs ] with-child-options" 3array
"./test-extra-log" zealot-test-command 3array "./test-extra-log" zealot-test-command 3array
[ try-process ] parallel-each [ try-process ] parallel-each