colorized test output shows scripting tests with X

2011-06-25 12:42:55 +02:00 · 2011-06-25 12:42:55 +02:00 · 15bc1cc1bc
commit 15bc1cc1bc
parent 994ed2bc55
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 .