diff --git a/extra/builder/builder.factor b/extra/builder/builder.factor index 870c896542..361401ad55 100644 --- a/extra/builder/builder.factor +++ b/extra/builder/builder.factor @@ -88,8 +88,20 @@ VAR: stamp 20 minutes>ms >>timeout >desc ; -: builder-test ( -- desc ) { factor-binary "-run=builder.test" } to-strings ; - +! : builder-test ( -- desc ) { factor-binary "-run=builder.test" } to-strings ; + +: builder-test-cmd ( -- cmd ) + { factor-binary "-run=builder.test" } to-strings ; + +: builder-test ( -- desc ) + + builder-test-cmd >>arguments + +closed+ >>stdin + "../test-log" >>stdout + +stdout+ >>stderr + 45 minutes>ms >>timeout + >desc ; + ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! SYMBOL: build-status @@ -125,9 +137,11 @@ SYMBOL: build-status bootstrap [ "Bootstrap error" print "../boot-log" cat ] run-or-bail - [ builder-test try-process ] - [ "Builder test error" print throw ] - recover +! [ builder-test try-process ] +! [ "Builder test error" print throw ] +! recover + + builder-test [ "Test error" print "../test-log" cat ] run-or-bail "Boot time: " write "../boot-time" eval-file milli-seconds>time print "Load time: " write "../load-time" eval-file milli-seconds>time print diff --git a/extra/builder/util/util.factor b/extra/builder/util/util.factor index fd985f77cf..f9eb17c565 100644 --- a/extra/builder/util/util.factor +++ b/extra/builder/util/util.factor @@ -83,11 +83,4 @@ TUPLE: process* arguments stdin stdout stderr timeout ; USING: bootstrap.image bootstrap.image.download io.streams.null ; -: retrieve-image ( -- ) [ my-arch download-image ] with-null-stream ; - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: copy-image ( -- ) - "../../factor/" my-arch boot-image-name append - my-arch boot-image-name - copy-file ; \ No newline at end of file +: retrieve-image ( -- ) [ my-arch download-image ] with-null-stream ; \ No newline at end of file