From 4c017a7f76c547e3d5a1cc324b1d136985205b93 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 18 Sep 2017 19:27:58 -0500
Subject: [PATCH] zealot: use n-groups

---
 extra/zealot/factor/factor.factor | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/extra/zealot/factor/factor.factor b/extra/zealot/factor/factor.factor
index f496c0985c..5f34dea458 100644
--- a/extra/zealot/factor/factor.factor
+++ b/extra/zealot/factor/factor.factor
@@ -108,7 +108,37 @@ M: windows factor-path "./factor.com" ;
         60 minutes >>timeout
         +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 -- )
+     [
+        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
         "./test-core-log" zealot-test-command