diff options
| author | Michael Snyder <msnyder@vmware.com> | 2010-05-24 22:03:59 +0000 |
|---|---|---|
| committer | Michael Snyder <msnyder@vmware.com> | 2010-05-24 22:03:59 +0000 |
| commit | ad3986f07b99393eb3a6282381d82cc1e8fe02fd (patch) | |
| tree | 2fae34b761d0bc691347934f28d60eba28bbd03c /gdb/testsuite/gdb.base/callfuncs.exp | |
| parent | 6f875884e04b91b36840b991ce4509f9bf560367 (diff) | |
| download | gdb-ad3986f07b99393eb3a6282381d82cc1e8fe02fd.zip gdb-ad3986f07b99393eb3a6282381d82cc1e8fe02fd.tar.gz gdb-ad3986f07b99393eb3a6282381d82cc1e8fe02fd.tar.bz2 | |
2010-05-24 Michael Snyder <msnyder@vmware.com>
* 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.
* gdb.base/call-signal-resume.exp: Replace send_gdb with gdb_test.
* gdb.base/call-strs.exp: Replace send_gdb with gdb_test.
* gdb.base/catch-syscall.exp: Replace send_gdb with gdb_test.
* gdb.base/charset.exp: Replace send_gdb with gdb_test.
* gdb.base/checkpoint.exp: Replace send_gdb with gdb_test.
* gdb.base/commands.exp: Replace send_gdb with gdb_test.
* gdb.base/condbreak.exp: Replace send_gdb with gdb_test.
* gdb.base/cond-exprs.exp: Replace send_gdb with gdb_test.
* gdb.base/consecutive.exp: Replace send_gdb with gdb_test.
* gdb.base/constvars.exp: Replace send_gdb with gdb_test.
* gdb.base/corefile.exp: Replace send_gdb with gdb_test.
Diffstat (limited to 'gdb/testsuite/gdb.base/callfuncs.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/callfuncs.exp | 22 |
1 files changed, 6 insertions, 16 deletions
diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp index f7fc641..d660051 100644 --- a/gdb/testsuite/gdb.base/callfuncs.exp +++ b/gdb/testsuite/gdb.base/callfuncs.exp @@ -58,27 +58,17 @@ if [target_info exists gdb,cannot_call_functions] { proc set_lang_c {} { global gdb_prompt - send_gdb "set language c\n" - gdb_expect { - -re ".*$gdb_prompt $" {} - timeout { fail "set language c (timeout)" ; return 0; } - } + gdb_test_no_output "set language c" + + set success 0 - send_gdb "show language\n" - gdb_expect { + gdb_test_multiple "show language" "set language to \"c\"" { -re ".* source language is \"c\".*$gdb_prompt $" { pass "set language to \"c\"" - return 1 - } - -re ".*$gdb_prompt $" { - fail "setting language to \"c\"" - return 0 - } - timeout { - fail "can't show language (timeout)" - return 0 + set success 1 } } + return $success } # FIXME: Before calling this proc, we should probably verify that |