diff options
| author | Doug Evans <dje@google.com> | 2010-11-30 17:41:14 +0000 |
|---|---|---|
| committer | Doug Evans <dje@google.com> | 2010-11-30 17:41:14 +0000 |
| commit | 5fa290c134cb9573795d3abf8903d4ccc50980a0 (patch) | |
| tree | d059354886f115ffa09e3b4b9d3fc50d76ae21a9 /gdb/testsuite/lib | |
| parent | c3e5cf5f4d06bd43a1d9e72b7067ce93726d329a (diff) | |
| download | gdb-5fa290c134cb9573795d3abf8903d4ccc50980a0.zip gdb-5fa290c134cb9573795d3abf8903d4ccc50980a0.tar.gz gdb-5fa290c134cb9573795d3abf8903d4ccc50980a0.tar.bz2 | |
* lib/gdb.exp (gdb_test_sequence): Return result of gdb_expect_list.
(gdb_expect_list): Fix spelling errors in comments.
* gdb.arch/system-gcore.exp: Use gdb_test_sequence instead of
send_gdb/gdb_expect_list where applicable.
* gdb.base/call-ar-st.exp: Ditto.
* gdb.base/funcargs.exp: Ditto.
* gdb.base/gcore.exp: Ditto.
* gdb.base/page.exp: Ditto.
* gdb.base/sigaltstack.exp: Ditto.
* gdb.base/siginfo.exp: Ditto.
* gdb.base/sigstep.exp: Ditto.
* gdb.base/trace-commands.exp: Ditto.
Diffstat (limited to 'gdb/testsuite/lib')
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index ab54c25..fc8751f 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -936,6 +936,11 @@ proc gdb_test_no_output { args } { # # Like gdb_test and gdb_test_multiple, the output is expected to end with the # gdb prompt, which must not be specified in EXPECTED_OUTPUT_LIST. +# +# Returns: +# 1 if the test failed, +# 0 if the test passes, +# -1 if there was an internal error. proc gdb_test_sequence { command test_name expected_output_list } { global gdb_prompt @@ -944,7 +949,7 @@ proc gdb_test_sequence { command test_name expected_output_list } { } lappend expected_output_list ""; # implicit ".*" before gdb prompt send_gdb "$command\n" - gdb_expect_list $test_name "$gdb_prompt $" $expected_output_list + return [gdb_expect_list $test_name "$gdb_prompt $" $expected_output_list] } @@ -2376,10 +2381,10 @@ proc gdb_expect { args } { } } -# gdb_expect_list MESSAGE SENTINEL LIST -- expect a sequence of outputs +# gdb_expect_list TEST SENTINEL LIST -- expect a sequence of outputs # # Check for long sequence of output by parts. -# MESSAGE: is the test message to be printed with the test success/fail. +# TEST: is the test message to be printed with the test success/fail. # SENTINEL: Is the terminal pattern indicating that output has finished. # LIST: is the sequence of outputs to match. # If the sentinel is recognized early, it is considered an error. @@ -2388,7 +2393,7 @@ proc gdb_expect { args } { # 1 if the test failed, # 0 if the test passes, # -1 if there was an internal error. -# + proc gdb_expect_list {test sentinel list} { global gdb_prompt global suppress_flag |