From 0a5a1de791d0c90e9ec8dfb235b2cfea30f082e6 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Wed, 7 Mar 2018 15:46:27 -0800
Subject: [PATCH] deterministic, immediate-printing tests

---
 gen/test.hoon | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/gen/test.hoon b/gen/test.hoon
index 64461c6b9b..c836133db9 100644
--- a/gen/test.hoon
+++ b/gen/test.hoon
@@ -10,12 +10,15 @@
 ++  test-runner
   :>  run all tests in {a} with a filter.
   =|  pax=path
-  |=  [filter=path eny=@uvJ a=tests:tester]
+  |=  [filter=path [defer=? eny=@uvJ] a=tests:tester]
   ^-  tang
   %-  concat:ls
   %+  turn  a
   |=  b=instance:tester
   ^-  tang
+  =;  tan/tang
+    ?:  defer  tan
+    ((slog (flop tan)) ~)
   =^  matches  filter  (match-filter filter p.b)
   ?.  matches
     ~
@@ -69,10 +72,11 @@
 :-  %say
 |=  $:  [now=@da eny=@uvJ bec=beak]
         [filter=$?($~ [pax=path $~])]
-        $~
+        [defer=_& seed=?(~ @uvJ)]
     ==
+~?  !defer  %test-compiled
 :-  %tang
-%^  test-runner
-?~  filter  ~  pax.filter
-eny
+%^    test-runner
+    ?~(filter ~ pax.filter)
+  [defer ?~(seed eny seed)]
 (test-map-to-test-list:tester all-tests)