From 57c772303f73acdb9fedc7d2db497ee3d3ee4e6c Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sat, 8 Mar 2008 22:46:57 -0600 Subject: [PATCH] builder.test: Show tests which fail in addition to vocabularies --- extra/builder/test/test.factor | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/extra/builder/test/test.factor b/extra/builder/test/test.factor index d03be0781a..e92efaf8fc 100644 --- a/extra/builder/test/test.factor +++ b/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 ;