ts: escape shell text output for regexp enabled tests

cea-hpc · Feb 27, 2023 · 4bf77a0 · 4bf77a0
1 parent 6864d24
commit 4bf77a0
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/testsuite/config/base-config.exp b/testsuite/config/base-config.exp
@@ -207,6 +207,11 @@ proc shell_text {test_shell val {re_mode 0}} {
         }
     }
 
+    if {$re_mode} {
+        # over escape regexp-special characters
+        set answer [regsub -all {([$.+?*\\()&|])} $answer {\\\1}]
+    }
+
     return $answer
 }