gdb/testsuite: handle differences in guile error string output

A new guile test added in commit:

  commit 0a9ccb9dd79384f3ba3f8cd75940e8868f3b526f
  Date:   Mon Feb 6 13:04:16 2023 +0000

      gdb: only allow one of thread or task on breakpoints or watchpoints

fails for some versions of guile.  It turns out that some versions of
guile emit an error like this:

  (gdb) guile (set-breakpoint-thread! bp 1)
  ERROR: In procedure set-breakpoint-thread!:
  In procedure gdbscm_set_breakpoint_thread_x: cannot set both task and thread attributes
  Error while executing Scheme code.

while other versions of guile emit the error like this:

  (gdb) guile (set-breakpoint-thread! bp 1)
  ERROR: In procedure set-breakpoint-thread!:
  ERROR: In procedure gdbscm_set_breakpoint_thread_x: cannot set both task and thread attributes
  Error while executing Scheme code.

notice the extra 'ERROR: ' on the second line of output.  This commit
updates the test regexp to handle this optional 'ERROR: ' string.

diff --git a/gdb/testsuite/gdb.ada/tasks.exp b/gdb/testsuite/gdb.ada/tasks.exp
index a73a1919419c41a833621180125d5137d9106085..eb7ee5c995147fb8d39f19429421330c9a4b781c 100644 (file)
--- a/gdb/testsuite/gdb.ada/tasks.exp
+++ b/gdb/testsuite/gdb.ada/tasks.exp
@@ -127,7 +127,8 @@ if {[allow_guile_tests]} {
     gdb_test "guile (set-breakpoint-thread! bp 1)" \
        [multi_line \
             "ERROR: In procedure set-breakpoint-thread!:" \
-            "In procedure gdbscm_set_breakpoint_thread_x: cannot set both task and thread attributes" \
+            "(ERROR: )?In procedure gdbscm_set_breakpoint_thread_x:\
+             cannot set both task and thread attributes" \
             "Error while executing Scheme code."] \
        "attempt to set thread, but expect an error"
 
@@ -138,7 +139,8 @@ if {[allow_guile_tests]} {
     gdb_test "guile (set-breakpoint-task! bp 1)" \
        [multi_line \
             "ERROR: In procedure set-breakpoint-task!:" \
-            "In procedure gdbscm_set_breakpoint_task_x: cannot set both task and thread attributes" \
+            "(ERROR: )?In procedure gdbscm_set_breakpoint_task_x:\
+             cannot set both task and thread attributes" \
             "Error while executing Scheme code."] \
        "attempt to set task, but expect an error"