colorized test output shows scripting tests with X

2011-06-25 12:42:55 +02:00 · 2011-06-25 12:42:55 +02:00 · be5f3e8bd6
commit be5f3e8bd6
parent 4d0e1714f0
1 changed files with 3 additions and 0 deletions
--- 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 .