diff --git a/extra/builder/builder.factor b/extra/builder/builder.factor index fa76f8ec3c..9c4c833182 100644 --- a/extra/builder/builder.factor +++ b/extra/builder/builder.factor @@ -228,15 +228,7 @@ SYMBOL: report [ builder-test try-process ] [ report get - [ - "Builder test error" write nl - "../load-everything-log" exists? - [ "../load-everything-log" contents write nl ] - when - "../test-all-log" exists? - [ "../test-all-log" contents write nl ] - when - ] + [ "Builder test error" write nl ] with-stream* throw ] diff --git a/extra/builder/test/test.factor b/extra/builder/test/test.factor index e401b689c4..0a5750a030 100644 --- a/extra/builder/test/test.factor +++ b/extra/builder/test/test.factor @@ -15,20 +15,6 @@ IN: builder.test [ bootstrap-time get . ] with-stream ; -! : try-everything* ( -- vocabs ) try-everything [ first vocab-link-name ] map ; - -! : do-load ( -- ) -! [ -! "../load-everything-log" -! [ try-everything keys ] -! with-stream -! ] "../load-everything-time" log-runtime -! dup empty? -! [ drop ] -! [ "../load-everything-vocabs" log-object ] -! if -! "../load-everything-log" delete-file ; - : do-load ( -- ) [ try-everything keys ] "../load-everything-time" log-runtime dup empty? @@ -36,25 +22,6 @@ IN: builder.test [ "../load-everything-vocabs" log-object ] if ; -! : do-tests ( -- ) -! run-all-tests keys -! dup empty? -! [ drop ] -! [ "../failing-tests" log-object ] -! if ; - -! : do-tests ( -- ) -! [ -! "../test-all-log" -! [ run-all-tests keys ] -! with-stream -! ] "../test-all-time" log-runtime -! dup empty? -! [ drop ] -! [ "../test-all-vocabs" log-object ] -! if -! "../test-all-log" delete-file ; - : do-tests ( -- ) [ run-all-tests keys ] "../test-all-time" log-runtime dup empty? @@ -62,11 +29,6 @@ IN: builder.test [ "../test-all-vocabs" log-object ] if ; -! : do-all ( -- ) -! record-bootstrap-time -! [ do-load ] [ drop ] recover -! [ do-tests ] [ drop ] recover ; - : do-all ( -- ) record-bootstrap-time do-load