gdb/testsuite/
authorJan Kratochvil <jan.kratochvil@redhat.com>
Fri, 24 May 2013 15:37:25 +0000 (15:37 +0000)
committerJan Kratochvil <jan.kratochvil@redhat.com>
Fri, 24 May 2013 15:37:25 +0000 (15:37 +0000)
PR testsuite/12649
* gdb.mi/mi-dprintf.exp (mi_continue_dprintf) (mi 2nd dprintf): Replace
$mi_gdb_prompt expectation by mi_expect_stop.
(mi 1st dprintf, agent, mi 2nd dprintf, agent)
(mi info dprintf second time): Replace them by mi_send_resuming_command
and mi_expect_stop.

gdb/testsuite/ChangeLog
gdb/testsuite/gdb.mi/mi-dprintf.exp

index 14b5945e69322c8cd5adc1621f538fd94ce70ecf..3428dde009a469b797d6e0d25d03f5bcd737684e 100644 (file)
@@ -1,3 +1,12 @@
+2013-05-24  Jan Kratochvil  <jan.kratochvil@redhat.com>
+
+       PR testsuite/12649
+       * gdb.mi/mi-dprintf.exp (mi_continue_dprintf) (mi 2nd dprintf): Replace
+       $mi_gdb_prompt expectation by mi_expect_stop.
+       (mi 1st dprintf, agent, mi 2nd dprintf, agent)
+       (mi info dprintf second time): Replace them by mi_send_resuming_command
+       and mi_expect_stop.
+
 2013-05-24  Gary Benson  <gbenson@redhat.com>
 
        * gdb.base/solib-disc.exp (exec_opts): Remove unnecesary
index ea8b3a820ab513315a747e4181c2f556c6125403..3509963b9212c1396377c0ebfa436e05f6e66406 100644 (file)
@@ -83,7 +83,7 @@ proc mi_continue_dprintf {args} {
        set msg "mi 2nd dprintf"
        mi_send_resuming_command "exec-continue" "$msg continue"
        gdb_expect {
-            -re ".*At foo entry.*arg=1235, g=2222.*$mi_gdb_prompt$" {
+            -re ".*At foo entry.*arg=1235, g=2222" {
                pass $msg
            }
            -re ".*$mi_gdb_prompt$" {
@@ -93,6 +93,7 @@ proc mi_continue_dprintf {args} {
                fail $msg
             }
        }
+       mi_expect_stop ".*" ".*" ".*" ".*" ".*" "" "$msg 2nd stop"
     }
 }
 
@@ -135,11 +136,28 @@ gdb_expect {
 if $target_can_dprintf {
     mi_run_cmd
 
-    mi_gdb_test "continue" ".*breakpoint-hit.*func=\"foo\".*" "mi 1st dprintf, agent"
+    mi_expect_stop ".*" ".*" ".*" ".*" ".*" "" "mi expect stop"
 
-    mi_gdb_test "continue" ".*breakpoint-hit.*func=\"foo\".*" "mi 2nd dprintf, agent"
+    mi_send_resuming_command "exec-continue" "mi 1st dprintf continue, agent"
+    mi_expect_stop ".*" "foo" ".*" ".*" ".*" "" "mi 1st dprintf, agent"
 
-    mi_gdb_test "6-break-info" ".*modified.*" "mi info dprintf second time"
+    mi_send_resuming_command "exec-continue" "mi 2nd dprintf continue, agent"
+
+    # The =breakpoint-modified text is a part of the "-exec-continue" output.
+    set msg "mi info dprintf second time"
+    gdb_expect {
+       -re "=breakpoint-modified," {
+           pass $msg
+       }
+       -re ".*$mi_gdb_prompt$" {
+           fail "$msg"
+       }
+       timeout {
+           fail "$msg"
+       }
+    }
+
+    mi_expect_stop ".*" "foo" ".*" ".*" ".*" "" "mi 2nd dprintf, agent"
 }
 
 mi_gdb_test "set dprintf-style foobar" ".*error.*" "mi set dprintf style to an unrecognized type"