2010-05-26 Michael Snyder <msnyder@msnyder-server.eng.vmware.com>

	* gdb.reverse/consecutive-reverse.exp: Replace send_gdb with gdb_test.
	* gdb.reverse/consecutive-precsave.exp: Replace send_gdb with gdb_test.

	* gdb.mi/mi-basics.exp:
	* gdb.mi/mi-nonstop-exit.exp: Replace send_gdb with gdb_test.
	* gdb.mi/mi-nonstop.exp: Replace send_gdb with gdb_test.
	* gdb.mi/mi-ns-stale-regcache.exp: Replace send_gdb with gdb_test.
	* gdb.mi/mi-nsintrall.exp: Replace send_gdb with gdb_test.
	* gdb.mi/mi-nsmoribund.exp: Replace send_gdb with gdb_test.
	* gdb.mi/mi-nsthrexec.exp: Replace send_gdb with gdb_test.
	* gdb.mi/mi-return.exp: Replace send_gdb with gdb_test.
	* gdb.mi/mi-var-display.exp: Replace send_gdb with gdb_test.
	* gdb.mi/mi2-basics.exp: Replace send_gdb with gdb_test.
	* gdb.mi/mi2-console.exp: Replace send_gdb with gdb_test.
	* gdb.mi/mi2-return.exp: Replace send_gdb with gdb_test.
	* gdb.mi/mi2-var-display.exp: Replace send_gdb with gdb_test.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 823e513e9a213888c404f8a0c390dd9132bfd752..b7808e8750445660ef8a714a68a75a7e2c1a5eb8 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,4 +1,23 @@
-2010-05-25  Michael Snyder  <msnyder@vmware.com>
+2010-05-26  Michael Snyder  <msnyder@msnyder-server.eng.vmware.com>
+
+       * gdb.reverse/consecutive-reverse.exp: Replace send_gdb with gdb_test.
+       * gdb.reverse/consecutive-precsave.exp: Replace send_gdb with gdb_test.
+
+       * gdb.mi/mi-basics.exp: 
+       * gdb.mi/mi-nonstop-exit.exp: Replace send_gdb with gdb_test.
+       * gdb.mi/mi-nonstop.exp: Replace send_gdb with gdb_test.
+       * gdb.mi/mi-ns-stale-regcache.exp: Replace send_gdb with gdb_test.
+       * gdb.mi/mi-nsintrall.exp: Replace send_gdb with gdb_test.
+       * gdb.mi/mi-nsmoribund.exp: Replace send_gdb with gdb_test.
+       * gdb.mi/mi-nsthrexec.exp: Replace send_gdb with gdb_test.
+       * gdb.mi/mi-return.exp: Replace send_gdb with gdb_test.
+       * gdb.mi/mi-var-display.exp: Replace send_gdb with gdb_test.
+       * gdb.mi/mi2-basics.exp: Replace send_gdb with gdb_test.
+       * gdb.mi/mi2-console.exp: Replace send_gdb with gdb_test.
+       * gdb.mi/mi2-return.exp: Replace send_gdb with gdb_test.
+       * gdb.mi/mi2-var-display.exp: Replace send_gdb with gdb_test.
+
+2010-05-26  Michael Snyder  <msnyder@vmware.com>
 
        * gdb.ada/formatted_ref.exp: Replace send_gdb with gdb_test.
 
@@ -50,28 +69,6 @@
 
        * gdb.dwarf2/pieces.exp (pieces_test_f3): Mention PR 11636.
 
-2010-05-25  Michael Snyder  <msnyder@vmware.com>
-
-       * gdb.ada/formatted_ref.exp: Replace send_gdb with gdb_test.
-
-       * gdb.asm/asm-source.exp: Replace send_gdb with gdb_test.
-
-       * gdb.cp/annota2.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/annota3.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/anon-union.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/cplusfuncs.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/demangle.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/formatted-ref.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/local.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/method.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/misc.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/namespace.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/ovldbreak.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/pr-1023.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/ref-types.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/templates.exp: Replace send_gdb with gdb_test.
-       * gdb.cp/userdef.exp: Replace send_gdb with gdb_test.
-
 2010-05-25  Michael Snyder  <msnyder@vmware.com>
 
        * gdb.base/a2-run.exp: Replace send_gdb with gdb_test.
@@ -83,7 +80,6 @@
        * gdb.base/bitfields.exp: Replace send_gdb with gdb_test.
        * gdb.base/bitfields2.exp: Replace send_gdb with gdb_test.
        * gdb.base/bitops.exp: Replace send_gdb with gdb_test.
-       * gdb.base/break.exp: Replace send_gdb with gdb_test.
        * gdb.base/call-ar-st.exp: Replace send_gdb with gdb_test.
        * gdb.base/callfuncs.exp: Replace send_gdb with gdb_test.
        * gdb.base/call-rt-st.exp: Replace send_gdb with gdb_test.
@@ -122,22 +118,6 @@
        * gdb.base/nodebug.exp: Replace send_gdb with gdb_test.
        * gdb.base/pointers.exp: Replace send_gdb with gdb_test.
        * gdb.base/ptype.exp: Replace send_gdb with gdb_test.
-       * gdb.base/relational.exp: Replace send_gdb with gdb_test.
-       * gdb.base/relocate.exp: Replace send_gdb with gdb_test.
-       * gdb.base/return.exp: Replace send_gdb with gdb_test.
-       * gdb.base/return2.exp: Replace send_gdb with gdb_test.
-       * gdb.base/sepdebug.exp: Replace send_gdb with gdb_test.
-       * gdb.base/setvar.exp: Replace send_gdb with gdb_test.
-       * gdb.base/shlib-call.exp: Replace send_gdb with gdb_test.
-       * gdb.base/shreloc.exp: Replace send_gdb with gdb_test.
-       * gdb.base/sigall.exp: Replace send_gdb with gdb_test.
-       * gdb.base/sigbpt.exp: Replace send_gdb with gdb_test.
-       * gdb.base/signull.exp: Replace send_gdb with gdb_test.
-       * gdb.base/so-impl-ld.exp:Replace send_gdb with gdb_test.
-       * gdb.base/varargs.exp: Replace send_gdb with gdb_test.
-       * gdb.base/volatile.exp: Replace send_gdb with gdb_test.
-       * gdb.base/watch_thread_num.exp: Replace send_gdb with gdb_test.
-       * gdb.base/watchpoint.exp: Replace send_gdb with gdb_test.
        * gdb.base/whatis.exp: Replace send_gdb with gdb_test.
 
 2010-05-25  Doug Evans  <dje@google.com>

diff --git a/gdb/testsuite/gdb.mi/mi-basics.exp b/gdb/testsuite/gdb.mi/mi-basics.exp
index dcf4dd4738cb2b2f2c7ea45c74417f4ebad5a275..db68d3b16000ba2077c895660f0eda3fe92d87f6 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-basics.exp
+++ b/gdb/testsuite/gdb.mi/mi-basics.exp
@@ -60,23 +60,19 @@ proc test_mi_interpreter_selection {} {
 
     # All this test expects is to get the prompt back
     # with no syntax error message
-    send_gdb "-gdb-version\n"
-    gdb_expect {
-           -re "GNU gdb .*\r\n$mi_gdb_prompt$" \
-               { pass "acceptance of MI operations" 
-                 return 1}
-           -re ".*\r\n$mi_gdb_prompt$" \
-               { fail "acceptance of MI operations"
-                 note "Skipping all other MI tests." }
-           -re "Undefined command.*$gdb_prompt $" \
-               { fail "acceptance of MI operations"
-                 note "Skipping all other MI tests." }
-           -re ".*$gdb_prompt $" \
-               { fail "acceptance of MI operations"
-                 note "Skipping all other MI tests." }
-           timeout { fail "acceptance of MI operations (timeout)"
-                     note "Skipping all other MI tests." }
+    gdb_test_multiple "-gdb-version" "acceptance of MI operations" {
+       -re "GNU gdb .*\r\n$mi_gdb_prompt$" {
+           pass "acceptance of MI operations"
+           return 1
+       }
+       -re ".*\r\n$mi_gdb_prompt$" {
+           fail "acceptance of MI operations"
+       }
+       -re "Undefined command.*$gdb_prompt $" {
+           fail "acceptance of MI operations"
+       }
     }
+    note "Skipping all other MI tests."
     return 0
 }
 
@@ -90,14 +86,17 @@ proc test_exec_and_symbol_mi_operatons {} {
 
     # Can't use mi_gdb_test as if this doesn't work,
     #  we must give up on the whole test file
-    send_gdb "-file-exec-and-symbols ${binfile}\n"
-    gdb_expect {
-           -re "\[\r\n\]*\\\^done\r\n$mi_gdb_prompt$" \
-               { pass "file-exec-and-symbols operation" }
-           timeout { fail "file-exec-and-symbols operation (timeout)"
-                     note "Skipping all other MI tests."
-                     return 0}
-    }
+    gdb_test_multiple "-file-exec-and-symbols ${binfile}" \
+       "-file-exec-and-symbols ${binfile}" {
+           -re "\[\r\n\]*\\\^done\r\n$mi_gdb_prompt$" {
+               pass "file-exec-and-symbols operation"
+           }
+           timeout {
+               fail "file-exec-and-symbols operation (timeout)"
+               note "Skipping all other MI tests."
+               return 0
+           }
+       }
 
     # The following is not used by mi-support.exp, but we test here so
     # we get done with loading a program basics.
@@ -208,14 +207,13 @@ proc test_path_specification {} {
     # -environment-path -r dir
     # -environment-path -r
 
-    send_gdb "-environment-path\n"
-    gdb_expect 20 {
+    gdb_test_multiple "-environment-path" "-environment-path" {
        -re "\\\^done,path=\"\(.*\)\"\r\n$mi_gdb_prompt" { 
-         set orig_path $expect_out(1,string); 
+           set orig_path $expect_out(1,string); 
        }
        timeout { 
-         perror "-environment-path (timeout)" ; 
-         return 
+           perror "-environment-path (timeout)" ; 
+           return 
        }
     }
 

diff --git a/gdb/testsuite/gdb.mi/mi-nonstop-exit.exp b/gdb/testsuite/gdb.mi/mi-nonstop-exit.exp
index 6acdcb91cc204a673864ad723e445cda751cc4cf..3b678257d639c9efedf1f05ad47e934a80754f83 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-nonstop-exit.exp
+++ b/gdb/testsuite/gdb.mi/mi-nonstop-exit.exp
@@ -37,14 +37,13 @@ mi_gdb_reinitialize_dir $srcdir/$subdir
 mi_gdb_load $binfile
 
 set supported 0
-send_gdb "-gdb-show non-stop\n"
-gdb_expect {
+gdb_test_multiple "-gdb-show non-stop" "" {
     -re ".*\\^done,value=\"off\",supported=\"(\[^\"\]+)\"\r\n$mi_gdb_prompt$" {
         if { $expect_out(1,string) == "1" } {
             set supported 1
         }
     }
-    -re ".$mi_gdb_prompt$" {
+    -re ".*$mi_gdb_prompt$" {
     }
 }
 

diff --git a/gdb/testsuite/gdb.mi/mi-nonstop.exp b/gdb/testsuite/gdb.mi/mi-nonstop.exp
index 278fe2a5f83f8cefa19524b254f015f08f0f5007..a23d70d447d8e4cfa0b918e3391edf9e864a47cc 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-nonstop.exp
+++ b/gdb/testsuite/gdb.mi/mi-nonstop.exp
@@ -47,14 +47,13 @@ mi_gdb_reinitialize_dir $srcdir/$subdir
 mi_gdb_load $binfile
 
 set supported 0
-send_gdb "-gdb-show non-stop\n"
-gdb_expect {
+gdb_test_multiple "-gdb-show non-stop" "" {
     -re ".*\\^done,value=\"off\",supported=\"(\[^\"\]+)\"\r\n$mi_gdb_prompt$" {
        if { $expect_out(1,string) == "1" } {
            set supported 1
        }
     }
-    -re ".$mi_gdb_prompt$" {
+    -re ".*$mi_gdb_prompt$" {
     }
 }
 
@@ -94,14 +93,10 @@ mi_varobj_update * {I_W1 I_W0} "update varobj, 1"
 mi_check_varobj_value I_W0 1 "check varobj, w0, 1"
 mi_check_varobj_value I_W1 1 "check varobj, w1, 1"
 
-send_gdb "-exec-interrupt --thread 1\n"
-gdb_expect {
+gdb_test_multiple "-exec-interrupt --thread 1" "interrupted" {
     -re "\\^done\r\n$mi_gdb_prompt\\*stopped\[^\r\n\]+\r\n$" {
        pass "interrupted"
     }
-    timeout {
-       fail "interrupted (timeout)"
-    }
 }
 # The interrupt command sends SIGINT to the target, and therefore the
 # thread might not be stopped immediately when we return from the target.
@@ -109,14 +104,10 @@ gdb_expect {
 sleep 1
 mi_check_thread_states {"stopped" "stopped" "stopped"} "thread state, stop 4"
 
-send_gdb "-exec-continue --all\n"
-gdb_expect {
+gdb_test_multiple "-exec-continue --all" "resume all" {
     -re ".*\\*running,thread-id=\"3\"\r\n\\*running,thread-id=\"2\"\r\n\\*running,thread-id=\"1\"\r\n$mi_gdb_prompt" {
        pass "resume all"
     }
-    timeout {
-       fail "resume all (timeout)"
-    }
 }
 
 mi_expect_stop "breakpoint-hit" "break_at_me" "\[^\n\]*" "non-stop.c" "\[0-9\]*" {"" "disp=\"keep\""} "w0,i2 stop"

diff --git a/gdb/testsuite/gdb.mi/mi-ns-stale-regcache.exp b/gdb/testsuite/gdb.mi/mi-ns-stale-regcache.exp
index a98e702f140248d7d82e7815f13a1e716f92dc82..24bc73ec65b1a6fe66e530a93bac7f1856ee0db8 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-ns-stale-regcache.exp
+++ b/gdb/testsuite/gdb.mi/mi-ns-stale-regcache.exp
@@ -51,14 +51,13 @@ mi_gdb_reinitialize_dir $srcdir/$subdir
 mi_gdb_load $binfile
 
 set supported 0
-send_gdb "-gdb-show non-stop\n"
-gdb_expect {
+gdb_test_multiple "-gdb-show non-stop" "" {
     -re ".*\\^done,value=\"off\",supported=\"(\[^\"\]+)\"\r\n$mi_gdb_prompt$" {
        if { $expect_out(1,string) == "1" } {
            set supported 1
        }
     }
-    -re ".$mi_gdb_prompt$" {
+    -re ".*$mi_gdb_prompt$" {
     }
 }
 

diff --git a/gdb/testsuite/gdb.mi/mi-nsintrall.exp b/gdb/testsuite/gdb.mi/mi-nsintrall.exp
index 9ba197af5d3a959fdc56762949edffaf367c3a01..cd277b259e994521ab7b6a5caa4cc5bc91186803 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-nsintrall.exp
+++ b/gdb/testsuite/gdb.mi/mi-nsintrall.exp
@@ -37,14 +37,13 @@ mi_gdb_reinitialize_dir $srcdir/$subdir
 mi_gdb_load $binfile
 
 set supported 0
-send_gdb "-gdb-show non-stop\n"
-gdb_expect {
+gdb_test_multiple "-gdb-show non-stop\n" "" {
     -re ".*\\^done,value=\"off\",supported=\"(\[^\"\]+)\"\r\n$mi_gdb_prompt$" {
        if { $expect_out(1,string) == "1" } {
            set supported 1
        }
     }
-    -re ".$mi_gdb_prompt$" {
+    -re ".*$mi_gdb_prompt$" {
     }
 }
 
@@ -78,14 +77,10 @@ for {set i 6} {$i > 0} {incr i -1} {
     set running_re "$running_re\\*running,thread-id=\"$i\"\r\n"
 }
 
-send_gdb "-exec-continue --all\n"
-gdb_expect {
+gdb_test_multiple "-exec-continue --all" "resume all, no breakpoint" {
     -re ".*$running_re$mi_gdb_prompt" {
        pass "resume all, no breakpoint"
     }
-    timeout {
-       fail "resume all, no breakpoint (timeout)"
-    }
 }
 mi_check_thread_states \
     {"running" "running" "running" "running" "running" "running"} \
@@ -101,14 +96,10 @@ mi_check_thread_states \
     "thread state, all interrupted"
 
 # resume all threads, and check that no thread is spuriously left interrupted
-send_gdb "-exec-continue --all\n"
-gdb_expect {
+gdb_test_multiple "-exec-continue --all" "resume all after interrupting" {
     -re ".*$running_re$mi_gdb_prompt" {
        pass "resume all after interrupting"
     }
-    timeout {
-       fail "resume all after interrupting (timeout)"
-    }
 }
 
 sleep 1

diff --git a/gdb/testsuite/gdb.mi/mi-nsmoribund.exp b/gdb/testsuite/gdb.mi/mi-nsmoribund.exp
index 9078dd208bf019d06075bcc676873c3a2dd859a5..3e5bc1b80004a63e1bad620729b57369dae966ce 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-nsmoribund.exp
+++ b/gdb/testsuite/gdb.mi/mi-nsmoribund.exp
@@ -37,14 +37,13 @@ mi_gdb_reinitialize_dir $srcdir/$subdir
 mi_gdb_load $binfile
 
 set supported 0
-send_gdb "-gdb-show non-stop\n"
-gdb_expect {
+gdb_test_multiple "-gdb-show non-stop" "" {
     -re ".*\\^done,value=\"off\",supported=\"(\[^\"\]+)\"\r\n$mi_gdb_prompt$" {
        if { $expect_out(1,string) == "1" } {
            set supported 1
        }
     }
-    -re ".$mi_gdb_prompt$" {
+    -re ".*$mi_gdb_prompt$" {
     }
 }
 
@@ -99,14 +98,10 @@ for {set i $nthreads} {$i > 0} {incr i -1} {
     set running_re "$running_re\\*running,thread-id=\"$decimal\"\r\n"
 }
 
-send_gdb "-exec-continue --all\n"
-gdb_expect {
+gdb_test_multiple "-exec-continue --all" "resume all, thread specific breakpoint" {
     -re ".*$running_re$mi_gdb_prompt" {
        pass "resume all, thread specific breakpoint"
     }
-    timeout {
-       fail "resume all, thread specific breakpoint (timeout)"
-    }
 }
 
 mi_expect_stop "breakpoint-hit" "thread_function" "\[^\n\]*" "$srcfile" \
@@ -128,20 +123,14 @@ mi_check_thread_states \
 # a target bug if it can step over breakpoints itself), a spurious
 # SIGTRAP/SIGSEGV can come at any time after deleting the breakpoint.
 
-send_gdb "102-break-delete\n"
-send_gdb "print done = 1\n"
-send_gdb "103-exec-continue --all\n"
-
-gdb_expect {
-    -re "\\*stopped,reason=\"exited-normally\"" {
-       pass "resume all, program exited normally"
-    }
-    -re "\\*stopped" {
-       fail "unexpected stop"
-    }
-    timeout {
-       fail "resume all, waiting for program exit (timeout)"
+gdb_test_multiple "102-break-delete\nprint done = 1\n103-exec-continue --all" \
+    "resume all, program exited normally" {
+       -re "\\*stopped,reason=\"exited-normally\"" {
+           pass "resume all, program exited normally"
+       }
+       -re "\\*stopped" {
+           fail "unexpected stop"
+       }
     }
-}
 
 mi_gdb_exit

diff --git a/gdb/testsuite/gdb.mi/mi-nsthrexec.exp b/gdb/testsuite/gdb.mi/mi-nsthrexec.exp
index 9b6104055d103d53f625455a1d64baaf1083062f..585e30f5822cb0b155588375792f80e79c22ca2b 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-nsthrexec.exp
+++ b/gdb/testsuite/gdb.mi/mi-nsthrexec.exp
@@ -47,14 +47,13 @@ mi_gdb_reinitialize_dir $srcdir/$subdir
 mi_gdb_load $binfile
 
 set supported 0
-send_gdb "-gdb-show non-stop\n"
-gdb_expect {
+gdb_test_multiple "-gdb-show non-stop" "" {
     -re ".*\\^done,value=\"off\",supported=\"(\[^\"\]+)\"\r\n$mi_gdb_prompt$" {
        if { $expect_out(1,string) == "1" } {
            set supported 1
        }
     }
-    -re ".$mi_gdb_prompt$" {
+    -re ".*$mi_gdb_prompt$" {
     }
 }
 

diff --git a/gdb/testsuite/gdb.mi/mi-return.exp b/gdb/testsuite/gdb.mi/mi-return.exp
index 938fb1f6c416dc550955481a3dfb311d5dbafcdf..d8bd1ae37ce2a8238e56fa1d16c8460efe68a149 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-return.exp
+++ b/gdb/testsuite/gdb.mi/mi-return.exp
@@ -53,11 +53,9 @@ proc test_return_simple {} {
     set line_callee3_call         [expr $line_callee3_head + 2]
     set line_callee3_close_brace  [expr $line_callee3_head + 3]
 
-    send_gdb "111-exec-return\n"
-    gdb_expect {
-       -re "111\\^done,frame=\{level=\"0\",addr=\"$hex\",func=\"callee3\",args=\\\[.*\\\],file=\".*basics.c\",fullname=\"${fullname_syntax}${srcfile}\",line=\"($line_callee3_call|$line_callee3_close_brace)\"\}\r\n$mi_gdb_prompt$" {pass "return from callee4 now"}
-       -re ".*\r\n$mi_gdb_prompt$" { fail "return from callee4 now" }
-       timeout { fail "return from callee4 now (timeout)"
+    gdb_test_multiple "111-exec-return" "return from callee4 now" {
+       -re "111\\^done,frame=\{level=\"0\",addr=\"$hex\",func=\"callee3\",args=\\\[.*\\\],file=\".*basics.c\",fullname=\"${fullname_syntax}${srcfile}\",line=\"($line_callee3_call|$line_callee3_close_brace)\"\}\r\n$mi_gdb_prompt$" {
+           pass "return from callee4 now"
        }
     }
 }

diff --git a/gdb/testsuite/gdb.mi/mi-var-display.exp b/gdb/testsuite/gdb.mi/mi-var-display.exp
index 875e5d24bec7f438791ad7b752fafcf87f701e25..ff8fe69b51a6a8be942ad6c7f2cbc851081e4d2e 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-var-display.exp
+++ b/gdb/testsuite/gdb.mi/mi-var-display.exp
@@ -606,14 +606,11 @@ mi_gdb_test "-var-list-children anone" \
 
 # Record fp
 
-send_gdb "p/x \$fp\n"
-gdb_expect {
+gdb_test_multiple "p/x \$fp" "print FP register" {
     -re ".*($hex).*\\^done\r\n$mi_gdb_prompt$" { 
        pass "print FP register"
        set fp $expect_out(1,string) 
     }
-#    -re ".*" { fail "print FP register"}
-    timeout { fail "print FP register (timeout)"}
 }
 
 mi_continue_to "incr_a"

diff --git a/gdb/testsuite/gdb.mi/mi2-basics.exp b/gdb/testsuite/gdb.mi/mi2-basics.exp
index 67a384c5f2fc05f35744037b39fe76b41a1bc067..d2dac252d3de956ec83bbbf98c4b61a2dac360b6 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi2-basics.exp
+++ b/gdb/testsuite/gdb.mi/mi2-basics.exp
@@ -60,23 +60,19 @@ proc test_mi_interpreter_selection {} {
 
     # All this test expects is to get the prompt back
     # with no syntax error message
-    send_gdb "-gdb-version\n"
-    gdb_expect {
-           -re "GNU gdb .*\r\n$mi_gdb_prompt$" \
-               { pass "acceptance of MI operations" 
-                 return 1}
-           -re ".*\r\n$mi_gdb_prompt$" \
-               { fail "acceptance of MI operations"
-                 note "Skipping all other MI tests." }
-           -re "Undefined command.*$gdb_prompt $" \
-               { fail "acceptance of MI operations"
-                 note "Skipping all other MI tests." }
-           -re ".*$gdb_prompt $" \
-               { fail "acceptance of MI operations"
-                 note "Skipping all other MI tests." }
-           timeout { fail "acceptance of MI operations (timeout)"
-                     note "Skipping all other MI tests." }
+    gdb_test_multiple "-gdb-version" "acceptance of MI operations" {
+       -re "GNU gdb .*\r\n$mi_gdb_prompt$" {
+           pass "acceptance of MI operations" 
+           return 1
+       }
+       -re ".*\r\n$mi_gdb_prompt$" {
+           fail "acceptance of MI operations"
+       }
+       -re "Undefined command.*$gdb_prompt $" {
+           fail "acceptance of MI operations"
+       }
     }
+    note "Skipping all other MI tests."
     return 0
 }
 
@@ -90,14 +86,17 @@ proc test_exec_and_symbol_mi_operatons {} {
 
     # Can't use mi_gdb_test as if this doesn't work,
     #  we must give up on the whole test file
-    send_gdb "-file-exec-and-symbols ${binfile}\n"
-    gdb_expect {
-           -re "\[\r\n\]*\\\^done\r\n$mi_gdb_prompt$" \
-               { pass "file-exec-and-symbols operation" }
-           timeout { fail "file-exec-and-symbols operation (timeout)"
-                     note "Skipping all other MI tests."
-                     return 0}
-    }
+    gdb_test_multiple "-file-exec-and-symbols ${binfile}" \
+       "file-exec-and-symbols operation" {
+           -re "\[\r\n\]*\\\^done\r\n$mi_gdb_prompt$" {
+               pass "file-exec-and-symbols operation"
+           }
+           timeout {
+               fail "file-exec-and-symbols operation (timeout)"
+               note "Skipping all other MI tests."
+               return 0
+           }
+       }
 
     # The following is not used by mi-support.exp, but we test here so
     # we get done with loading a program basics.
@@ -210,14 +209,13 @@ proc test_path_specification {} {
     # -environment-path -r dir
     # -environment-path -r
 
-    send_gdb "-environment-path\n"
-    gdb_expect 20 {
+    gdb_test_multiple "-environment-path" "-environment-path" {
        -re "\\\^done,path=\"\(.*\)\"\r\n$mi_gdb_prompt" { 
-         set orig_path $expect_out(1,string); 
+           set orig_path $expect_out(1,string); 
        }
        timeout { 
-         perror "-environment-path (timeout)" ; 
-         return 
+           perror "-environment-path (timeout)" ; 
+           return 
        }
     }
 

diff --git a/gdb/testsuite/gdb.mi/mi2-console.exp b/gdb/testsuite/gdb.mi/mi2-console.exp
index ed2a0e9c01eebc728ba7fca6bdd2a521f54ab033..5ef57c1567777c31cd15aa370558b5d4e33787b1 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi2-console.exp
+++ b/gdb/testsuite/gdb.mi/mi2-console.exp
@@ -48,14 +48,10 @@ if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
 mi_run_to_main
 
 # Next over the hello() call which will produce lots of output
-send_gdb "220-exec-next\n"
-gdb_expect {
+gdb_test_multiple "220-exec-next" "Started step over hello" {
     -re "220\\^running\r\n(\\*running,thread-id=\"all\"\r\n)?$mi_gdb_prompt" {
        pass "Started step over hello"
     }
-    timeout {
-       fail "Started step over hello (timeout)"
-    }
 }
 
 if { ![target_info exists gdb,noinferiorio] } {

diff --git a/gdb/testsuite/gdb.mi/mi2-return.exp b/gdb/testsuite/gdb.mi/mi2-return.exp
index 3d5eb4e745e08d386ffe77280eaff355b53b2c0e..7c33c6cf04617769d1d3a313dc1e6cdd4568c761 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi2-return.exp
+++ b/gdb/testsuite/gdb.mi/mi2-return.exp
@@ -53,11 +53,9 @@ proc test_return_simple {} {
     set line_callee3_call         [expr $line_callee3_head + 2]
     set line_callee3_close_brace  [expr $line_callee3_head + 3]
 
-    send_gdb "111-exec-return\n"
-    gdb_expect {
-       -re "111\\^done,frame=\{level=\"0\",addr=\"$hex\",func=\"callee3\",args=\\\[.*\\\],file=\".*basics.c\",fullname=\"${fullname_syntax}${srcfile}\",line=\"($line_callee3_call|$line_callee3_close_brace)\"\}\r\n$mi_gdb_prompt$" {pass "return from callee4 now"}
-       -re ".*\r\n$mi_gdb_prompt$" { fail "return from callee4 now" }
-       timeout { fail "return from callee4 now (timeout)"
+    gdb_test_multiple "111-exec-return" "return from callee4 now" {
+       -re "111\\^done,frame=\{level=\"0\",addr=\"$hex\",func=\"callee3\",args=\\\[.*\\\],file=\".*basics.c\",fullname=\"${fullname_syntax}${srcfile}\",line=\"($line_callee3_call|$line_callee3_close_brace)\"\}\r\n$mi_gdb_prompt$" {
+           pass "return from callee4 now"
        }
     }
 }

diff --git a/gdb/testsuite/gdb.mi/mi2-var-display.exp b/gdb/testsuite/gdb.mi/mi2-var-display.exp
index f24674e7f862250ab4556305b5275a5dc4a29a62..31f7484adc0305d3b1c165fd66c153b23b325b8f 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi2-var-display.exp
+++ b/gdb/testsuite/gdb.mi/mi2-var-display.exp
@@ -605,14 +605,11 @@ mi_gdb_test "-var-list-children anone" \
 
 # Record fp
 
-send_gdb "p/x \$fp\n"
-gdb_expect {
+gdb_test_multiple "p/x \$fp" "print FP register" {
     -re ".*($hex).*\\^done\r\n$mi_gdb_prompt$" { 
        pass "print FP register"
        set fp $expect_out(1,string) 
     }
-#    -re ".*" { fail "print FP register"}
-    timeout { fail "print FP register (timeout)"}
 }
 
 mi_continue_to "incr_a"

diff --git a/gdb/testsuite/gdb.reverse/consecutive-precsave.exp b/gdb/testsuite/gdb.reverse/consecutive-precsave.exp
index e6302ac7cb9f7679846081f637391aa4e7f484fc..a709aa12ef8a6d05b419fcf2e7dd4ddfbb5256eb 100644 (file)
--- a/gdb/testsuite/gdb.reverse/consecutive-precsave.exp
+++ b/gdb/testsuite/gdb.reverse/consecutive-precsave.exp
@@ -62,8 +62,7 @@ set foo1_addr 0
 set foo2_addr 0
 set stop_addr 0
 
-send_gdb "x /2i \$pc\n"
-gdb_expect {
+gdb_test_multiple "x /2i \$pc" "get breakpoint address for foo" {
     global hex
     global foo1_addr
     global foo2_addr
@@ -74,14 +73,6 @@ gdb_expect {
        set foo2_addr $expect_out(2,string)
        pass "get breakpoint address for foo"
     }
-    -re ".*$gdb_prompt $" {
-       fail "get breakpoint address for foo"
-       return 0;
-    }
-    timeout {
-       fail "get breakpoint address for foo (timeout)"
-       return 0;
-    }
 }
 
 gdb_test "break \*$foo2_addr" "Breakpoint $decimal at $foo2_addr: file .*" \
@@ -121,17 +112,8 @@ gdb_test_multiple "step" "$test_msg" {
        }
     }
     -re "Breakpoint $decimal, foo.*$gdb_prompt $" {
-       send_gdb "print \$pc == $foo1_addr\n"
-       gdb_expect {
-           -re "$decimal = 1\[\r\n\]+$gdb_prompt $" {
-               pass "$test_msg"
-           }
-           -re "$decimal = 0\[\r\n\]+$gdb_prompt $" {
-               fail "$test_msg (wrong address)"
-           }
-       }
-    }
-    -re ".*$gdb_prompt $" {
-       fail "$test_msg"
+       gdb_test "print \$pc == $foo1_addr" \
+           "$decimal = 1" \
+           "$test_msg"
     }
 }

diff --git a/gdb/testsuite/gdb.reverse/consecutive-reverse.exp b/gdb/testsuite/gdb.reverse/consecutive-reverse.exp
index 64114ea52c98f0fc22f088d3ddf58439c0fb4457..65aaf7620182566cf3524bb81f174c46e354793d 100644 (file)
--- a/gdb/testsuite/gdb.reverse/consecutive-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/consecutive-reverse.exp
@@ -43,8 +43,7 @@ set foo1_addr 0
 set foo2_addr 0
 set stop_addr 0
 
-send_gdb "x /2i \$pc\n"
-gdb_expect {
+gdb_test_multiple "x /2i \$pc" "get breakpoint address for foo" {
     global hex
     global foo1_addr
     global foo2_addr
@@ -55,14 +54,6 @@ gdb_expect {
        set foo2_addr $expect_out(2,string)
        pass "get breakpoint address for foo"
     }
-    -re ".*$gdb_prompt $" {
-       fail "get breakpoint address for foo"
-       return 0;
-    }
-    timeout {
-       fail "get breakpoint address for foo (timeout)"
-       return 0;
-    }
 }
 
 gdb_test "break \*$foo2_addr" "Breakpoint $decimal at $foo2_addr: file .*" \
@@ -102,17 +93,8 @@ gdb_test_multiple "step" "$test_msg" {
        }
     }
     -re "Breakpoint $decimal, foo.*$gdb_prompt $" {
-       send_gdb "print \$pc == $foo1_addr\n"
-       gdb_expect {
-           -re "$decimal = 1\[\r\n\]+$gdb_prompt $" {
-               pass "$test_msg"
-           }
-           -re "$decimal = 0\[\r\n\]+$gdb_prompt $" {
-               fail "$test_msg (wrong address)"
-           }
-       }
-    }
-    -re ".*$gdb_prompt $" {
-       fail "$test_msg"
+       gdb_test "print \$pc == $foo1_addr" \
+           "$decimal = 1" \
+           "$test_msg"
     }
 }