From: Per Bothner <per@bothner.com>
Date: Thu, 2 Jun 1994 23:02:00 +0000 (+0000)
Subject: 	* lib/gdb.exp (string_to_regexp, gdb_test_exact):  New procedures.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=faa157708bf8653146c1f850b3208ba2e1c1a961;p=binutils-gdb.git

	* lib/gdb.exp (string_to_regexp, gdb_test_exact):  New procedures.
---

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index cf754f9723e..126422e082a 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -258,6 +258,27 @@ proc gdb_test { args } {
     return $result
 }
 
+# Given an input string, adds backslashes as needed to create a
+# regexp that will match the string.
+proc string_to_regexp {str} {
+    regsub -all {[]*+.|()^$[]} $str {\\&} result
+    return $result
+}
+
+# Same as gdb_test, but the second parameter is not a regexp,
+# but a string that must match exactly.
+
+proc gdb_test_exact { args } {
+    set command [lindex $args 0]
+    set pattern [string_to_regexp [lindex args 1]]
+    if [llength $args]==3 then {
+	set message [lindex $args 2]
+    } else {
+	set message $command
+    }
+    return [gdb_test $command $pattern $message]
+}
+
 proc gdb_reinitialize_dir { subdir } {
     global prompt