builder.test: Show tests which fail in addition to vocabularies

extra/builder/test/test.factor

@@ -7,6 +7,7 @@ USING: kernel namespaces sequences assocs builder continuations
        tools.browser
        tools.test
        io.encodings.utf8
+       combinators.cleave
        bootstrap.stage2 benchmark builder.util ;
 
 IN: builder.test
@@ -14,8 +15,18 @@ IN: builder.test
 : do-load ( -- )
   try-everything keys "../load-everything-vocabs" utf8 [ . ] with-file-writer ;
 
+! : do-tests ( -- )
+!   run-all-tests keys "../test-all-vocabs" utf8 [ . ] with-file-writer ;
+
 : do-tests ( -- )
-  run-all-tests keys "../test-all-vocabs" utf8 [ . ] with-file-writer ;
+  run-all-tests
+  "../test-all-vocabs" utf8
+    [
+        [ keys . ]
+        [ test-failures. ]
+      bi
+    ]
+  with-file-writer ;
 
 : do-benchmarks ( -- )
   run-benchmarks "../benchmarks" utf8 [ . ] with-file-writer ;