gdb.base/foll-exec.exp: Update the expected output of a couple
authorJoel Brobecker <brobecker@gnat.com>
Thu, 30 Oct 2008 05:17:58 +0000 (05:17 +0000)
committerJoel Brobecker <brobecker@gnat.com>
Thu, 30 Oct 2008 05:17:58 +0000 (05:17 +0000)
        of "info breakpoints" tests.

gdb/testsuite/ChangeLog
gdb/testsuite/gdb.base/foll-exec.exp

index 5a8336c240de21cafa9429d06d40365d6bbbd69a..5229ff2793b4325abc076ae3193648566efe7d37 100644 (file)
@@ -1,3 +1,8 @@
+2008-10-30  Joel Brobecker  <brobecker@adacore.com>
+
+       gdb.base/foll-exec.exp: Update the expected output of a couple
+       of "info breakpoints" tests.
+
 2008-10-28  Tom Tromey  <tromey@redhat.com>
 
        * gdb.base/exprs.exp (test_expr): Add enum formatting tests.
index 861cf97d4923468f0c9eb261a8d81d1ab3dfceb9..358c84c878e0867fa45085d70185b6449cadccd2 100644 (file)
@@ -217,14 +217,11 @@ proc do_exec_tests {} {
    # Verify that the catchpoint is mentioned in an "info breakpoints",
    # and further that the catchpoint mentions no program name.
    #
-   send_gdb "info breakpoints\n"
-   gdb_expect {
-     -re ".*catch exec.*keep y.*$gdb_prompt $"\
-                     {pass "info shows catchpoint without exec pathname"}
-     -re ".*catch exec.*program \"\".*$gdb_prompt $"\
-                     {fail "info shows catchpoint without exec pathname"}
-     -re "$gdb_prompt $" {fail "info shows catchpoint without exec pathname"}
-     timeout         {fail "(timeout) info shows catchpoint without exec pathname"}
+   set msg "info shows catchpoint without exec pathname"
+   gdb_test_multiple "info breakpoints" $msg {
+       -re ".*catchpoint.*keep y.*exec\[\n\r\]+$gdb_prompt $" {
+           pass $msg
+       }
    }
 
    # DTS CLLbs16760
@@ -248,12 +245,11 @@ proc do_exec_tests {} {
    # and further that the catchpoint managed to capture the exec'd
    # program's name.
    #
-   send_gdb "info breakpoints\n"
-   gdb_expect {
-     -re ".*catch exec .*program \".*${testfile2}\".*$gdb_prompt $"\
-                     {pass "info shows catchpoint exec pathname"}
-     -re "$gdb_prompt $" {fail "info shows catchpoint exec pathname"}
-     timeout         {fail "(timeout) info shows catchpoint exec pathname"}
+   set msg "info shows catchpoint exec pathname"
+   gdb_test_multiple "info breakpoints" $msg {
+       -re ".*catchpoint.*keep y.*exec, program \".*${testfile2}\".*$gdb_prompt $" {
+           pass $msg
+       }
    }
 
    # Verify that we can continue from the catchpoint, and land in the