tools.test: rename TEST: to DEFINE-TEST-WORD:

diff --git a/basis/fixups/fixups.factor b/basis/fixups/fixups.factor
index 9ad6e9f4b875c045b5ab66ba91735d380d1e3cb2..edcd305480a826370bbfa5c31e18df55be45a1e9 100644 (file)
--- a/basis/fixups/fixups.factor
+++ b/basis/fixups/fixups.factor
@@ -66,6 +66,7 @@ CONSTANT: word-renames {
     ! { "?if" { "?if" "0.99" } }
     { "ensure-non-negative" { "assert-non-negative" "0.99" } }
     { "order" { "dispatch-order" "0.99" } }
+    { "TEST:" { "DEFINE-TEST-WORD:" "0.99" } }
 }
 
 : compute-assoc-fixups ( continuation name assoc -- seq )

diff --git a/basis/tools/test/fuzz/fuzz.factor b/basis/tools/test/fuzz/fuzz.factor
index 39bea44598a4ec8c29c404d9107c139256f38616..85b52de3933195d8e0a31cf8dae9b84f5de08f68 100644 (file)
--- a/basis/tools/test/fuzz/fuzz.factor
+++ b/basis/tools/test/fuzz/fuzz.factor
@@ -38,4 +38,4 @@ M: fuzz-test-failure summary
 
 PRIVATE>
 
-TEST: fuzz-test
+DEFINE-TEST-WORD: fuzz-test

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index c99470065813c01f5b28c85745de9d716acfd6e9..e9d00a65eb1bd98ed448c0b37cedcf235d197908 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -137,7 +137,7 @@ MACRO: <experiment> ( word -- quot )
 
 <<
 
-SYNTAX: TEST:
+SYNTAX: DEFINE-TEST-WORD:
     scan-token
     [ create-word-in ]
     [ "(" ")" surround search '[ _ parse-test ] ] bi
@@ -205,16 +205,16 @@ PRIVATE>
 : with-test-directory ( ..a quot: ( ..a -- ..b ) -- ..b )
     [ cleanup-unique-directory ] with-temp-directory ; inline
 
-TEST: unit-test
-TEST: unit-test~
-TEST: unit-test-v~
-TEST: unit-test-comparator
-TEST: long-unit-test
-TEST: must-infer-as
-TEST: must-infer
-TEST: must-fail-with
-TEST: must-fail
-TEST: must-not-fail
+DEFINE-TEST-WORD: unit-test
+DEFINE-TEST-WORD: unit-test~
+DEFINE-TEST-WORD: unit-test-v~
+DEFINE-TEST-WORD: unit-test-comparator
+DEFINE-TEST-WORD: long-unit-test
+DEFINE-TEST-WORD: must-infer-as
+DEFINE-TEST-WORD: must-infer
+DEFINE-TEST-WORD: must-fail-with
+DEFINE-TEST-WORD: must-fail
+DEFINE-TEST-WORD: must-not-fail
 
 M: test-failure error. ( error -- )
     {