0030093: Test system - Incorrect parsing of the regular expression

Add "\-" to regular expression (which contained only literal, numeric and underscore character).

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index 2c994bac238a3c3b3af85ab16039edd28ea3c220..751151c947da61882b3b83704e82a0d8a9f6ac8e 100644 (file)
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -1634,7 +1634,7 @@ proc _log_html_summary {logdir log totals regressions improvements skipped total
         puts $fd "<table>"
         set groupgrid ""
         foreach test [lrange $featured 1 end] {
-            if { ! [regexp {^(.*)\s+([\w.]+)$} $test res gg name] } {
+            if { ! [regexp {^(.*)\s+([\w\-.]+)$} $test res gg name] } {
                 set gg UNKNOWN
                 set name "Error building short list; check details"
             }