Merge branch 'modern-harvey' of github.com:factor/factor into modern-harvey
						commit
						f5657ac469
					
				| 
						 | 
					@ -108,7 +108,37 @@ M: windows factor-path "./factor.com" ;
 | 
				
			||||||
        60 minutes >>timeout
 | 
					        60 minutes >>timeout
 | 
				
			||||||
        +new-group+ >>group ;
 | 
					        +new-group+ >>group ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					: zealot-load-and-test ( vocabs -- )
 | 
				
			||||||
 | 
					    '[
 | 
				
			||||||
 | 
					        _ [ [ load ] each ] [ test-vocabs ] bi
 | 
				
			||||||
 | 
					    ] with-child-options ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					: load-and-test-command ( i -- command )
 | 
				
			||||||
 | 
					    [
 | 
				
			||||||
 | 
					        factor-path
 | 
				
			||||||
 | 
					        "-i=factor.image"
 | 
				
			||||||
 | 
					    ] dip
 | 
				
			||||||
 | 
					    [
 | 
				
			||||||
 | 
					        "-e=USING: zealot.factor tools.test grouping.extras formatting ; [ %d all-zealot-vocabs 32 n-groups nth zealot-load-and-test ] with-child-options"
 | 
				
			||||||
 | 
					        sprintf 3array
 | 
				
			||||||
 | 
					    ] [ "./test-%d-log" sprintf ] bi
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <process>
 | 
				
			||||||
 | 
					        swap >>stdout
 | 
				
			||||||
 | 
					        swap >>command
 | 
				
			||||||
 | 
					        +closed+ >>stdin
 | 
				
			||||||
 | 
					        +stdout+ >>stderr
 | 
				
			||||||
 | 
					        60 minutes >>timeout
 | 
				
			||||||
 | 
					        +new-group+ >>group ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: zealot-test-commands ( path -- )
 | 
					: zealot-test-commands ( path -- )
 | 
				
			||||||
 | 
					     [
 | 
				
			||||||
 | 
					        32 <iota> [
 | 
				
			||||||
 | 
					             load-and-test-command
 | 
				
			||||||
 | 
					        ] map [ try-process ] parallel-each
 | 
				
			||||||
 | 
					     ] with-directory ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					: zealot-test-commands-old ( path -- )
 | 
				
			||||||
    [
 | 
					    [
 | 
				
			||||||
        factor-path "-i=factor.image" "-e=USE: zealot.factor USE: tools.test [ zealot-core-vocabs test-vocabs ] with-child-options" 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
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue