colorized test output shows scripting tests with X

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 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 .
         } else {
             set colorcode {37}
             set ch .