tools.test: simplify by adding test-root

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index b0bfcbaa288230f17f259f7ceef2590bfe3d5462..91fb6457345756edc1af4593ce3268b808517238 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -242,10 +242,10 @@ M: test-failure error. ( error -- )
     [ f long-unit-tests-enabled? set-global ] when
     [
         dup vocab-roots get member? [
-            "" vocabs-to-load [ require-all ] keep
+            [ load-root ] [ test-root ] bi
         ] [
-            [ load ] [ loaded-child-vocab-names ] bi
-        ] if test-vocabs
+            [ load ] [ test ] bi
+        ] if
     ] each
     test-failures get empty?
     [ [ "==== FAILING TESTS" print flush :test-failures ] unless ]