Add missing gdb_prompt in ctxobj.exp to avoid random failure, fix typo.
authorPhilippe Waroquiers <philippe.waroquiers@skynet.be>
Sat, 19 Nov 2022 14:55:33 +0000 (15:55 +0100)
committerPhilippe Waroquiers <philippe.waroquiers@skynet.be>
Sat, 19 Nov 2022 14:55:33 +0000 (15:55 +0100)
ctxobj.exp fails randomly when computer is loaded.
With the addition of $gdb_prompt in the regexp testing for breakpoint hit,
I could not make it fail anymore.

Also fixed a typo in a comment.

gdb/testsuite/gdb.base/ctxobj.exp
gdb/testsuite/lib/mi-support.exp

index 3ca8111896c68b417dfc574c4ebb118e6e74cc3a..228a6890f11037a2755a374cde888b617c910c3a 100644 (file)
@@ -70,7 +70,7 @@ gdb_test "break ctxobj-f.c:$bp_location" \
 global expect_out
 set test "continue to get_version_1"
 gdb_test_multiple "continue" $test {
-    -re "Breakpoint ($bkptno_num_re), get_version_1 \\(\\).*" {
+    -re "Breakpoint ($bkptno_num_re), get_version_1 \\(\\).*\r\n.*$gdb_prompt $" {
        set bpno $expect_out(1,string)
        pass $test
     }
@@ -110,7 +110,7 @@ gdb_test "print this_version_num == v" \
 # Do the same, but from get_version_2.
 set test "continue to get_version_2"
 gdb_test_multiple "continue" $test {
-    -re "Breakpoint ($bkptno_num_re), get_version_2 \\(\\).*" {
+    -re "Breakpoint ($bkptno_num_re), get_version_2 \\(\\).*\r\n.*$gdb_prompt $" {
        set bpno $expect_out(1,string)
        pass $test
     }
index a45c6f7be2849928419ffd43f3e8cd5ceca0cb0a..14ddf0ad7ff76cbd68446f93af5a475e69ccd8c1 100644 (file)
@@ -1211,7 +1211,7 @@ proc mi_detect_async {} {
 # EXTRA can be a list of one, two or three elements.
 # The first element is the regular expression
 # for output expected right after *stopped, and before GDB prompt.
-# The third element is the regulation expression for the locno
+# The third element is the regular expression for the locno
 # right after bkptno field.  The locno regex should not include
 # the comma separating it from the following fields.
 #