simplify builder.test

extra/builder/builder.factor

@@ -1,8 +1,8 @@
 
-USING: kernel io io.files io.launcher hashtables tools.deploy.backend
+USING: kernel io io.files io.launcher hashtables
        system continuations namespaces sequences splitting math.parser
        prettyprint tools.time calendar bake vars http.client
-       combinators ;
+       combinators bootstrap.image ;
 
 IN: builder
 
@@ -82,6 +82,11 @@ VAR: stamp
   ]
   if
 
+  {
+    "git" "pull" "--no-summary"
+    "http://dharmatech.onigirihouse.com/factor.git" "master"
+  } run-process process-status
+
   "/builds/" stamp> append make-directory
   "/builds/" stamp> append cd
 

extra/builder/test/test.factor

@@ -7,28 +7,42 @@ USING: kernel sequences assocs builder continuations vocabs vocabs.loader
 
 IN: builder.test
 
+! : do-load ( -- )
+!   [
+!     [ load-everything ]
+!     [ require-all-error-vocabs "../load-everything-log" log-object ]
+!     recover
+!   ]
+!   "../load-everything-time" log-runtime ;
+
 : do-load ( -- )
-  [
-    [ load-everything ]
-    [ require-all-error-vocabs "../load-everything-log" log-object ]
-    recover
-  ]
-  "../load-everything-time" log-runtime ;
+  [ try-everything ] "../load-everything-time" log-runtime
+  dup empty?
+    [ drop ]
+    [ "../load-everything-log" log-object ]
+  if ;
+
+! : do-tests ( -- )
+!   "" child-vocabs
+!   [ vocab-source-loaded? ] subset
+!   [ vocab-tests-path ] map
+!   [ dup [ ?resource-path exists? ] when ] subset
+!   [ dup run-test ] { } map>assoc
+!   [ second empty? not ] subset
+!   dup empty?
+!   [ drop ]
+!   [
+!     "../failing-tests" <file-writer>
+!       [ [ nl failures. ] assoc-each ]
+!     with-stream
+!   ]
+!   if ;
 
 : do-tests ( -- )
-  "" child-vocabs
-  [ vocab-source-loaded? ] subset
-  [ vocab-tests-path ] map
-  [ dup [ ?resource-path exists? ] when ] subset
-  [ dup run-test ] { } map>assoc
-  [ second empty? not ] subset
+  run-all-tests keys
   dup empty?
   [ drop ]
-  [
-    "../failing-tests" <file-writer>
-      [ [ nl failures. ] assoc-each ]
-    with-stream
-  ]
+  [ "../failing-tests" log-object ]
   if ;
 
 : do-all ( -- ) do-load do-tests ;