colorized test output shows scripting tests with X

[redis.git] / tests / support / test.tcl

diff --git a/tests/support/test.tcl b/tests/support/test.tcl
index dff2d2976935cc57a7a34eda45db74fed639efa1..a6199f4bd1e0bb32c73ffbd53bea80de7fc8a8f8 100644 (file)
--- a/tests/support/test.tcl
+++ b/tests/support/test.tcl
@@ -80,6 +80,9 @@ proc colored_dot {tags passed} {
         } elseif {[lsearch $tags basic] != -1} {
             set colorcode {35}
             set ch B
+        } elseif {[lsearch $tags scripting] != -1} {
+            set colorcode {36}
+            set ch X
         } else {
             set colorcode {37}
             set ch .