From 93808a4a9cc9052e425a62e3d093d848b028f686 Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Mon, 3 Sep 2018 11:52:00 +0300
Subject: [PATCH] 0030093: Test system - Incorrect parsing of the regular
 expression

Add "\-" to regular expression (which contained only literal, numeric and underscore character).
---
 src/DrawResources/TestCommands.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index 2c994bac23..751151c947 100644
--- 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"
             }