tools.test: adding a test-root word.

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 59a55a22dc0e3b6a99690a897612b6300c33569f..8b24c146c51b55469876bd9ca4662f698c7095cc 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -230,6 +230,8 @@ M: test-failure error. ( error -- )
 
 : test-all ( -- ) "" test ;
 
+: test-root ( root -- ) "" vocabs-to-load test-vocabs ;
+
 : refresh-and-test ( prefix --  ) to-refresh [ do-refresh ] keepdd test-vocabs ;
 
 : refresh-and-test-all ( -- ) "" refresh-and-test ;