     45 minutes       >>timeout
   >desc ;
 
+: do-builder-test ( -- )
+  builder-test [ "Test error" print "../test-log" 100 cat-n ] run-or-bail ;
+
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 SYMBOL: build-status

    20 minutes    >>timeout
  >desc ;

: builder-test-cmd ( -- cmd )
  { "./factor" "-run=builder.test" } to-strings ;



  enter-build-dir

  "report"
    [
      "Build machine:   " write host-name print
      "CPU:             " write cpu       print
      "OS:              " write os        print
      "Build directory: " write cwd       print nl

      git-clone [ "git clone failed" print ] run-or-bail

      "factor"
        [
          record-git-id
          do-make-clean
          do-make-vm
          copy-image
          do-bootstrap
          do-builder-test
        ]
      with-directory

      "test-log" delete-file

      "Boot time: " write "boot-time" eval-file milli-seconds>time print
      "Load time: " write "load-time" eval-file milli-seconds>time print
      "Test time: " write "test-time" eval-file milli-seconds>time print nl

      "Did not pass load-everything: " print "load-everything-vocabs" cat
      "Did not pass test-all: "        print "test-all-vocabs"        cat

      "Benchmarks: " print "benchmarks" eval-file benchmarks.

      nl

      show-benchmark-deltas

      "benchmarks" ".." copy-file-into

      maybe-release
    ]
  with-file-writer

  build-status on ;

