diff options
| author | Elena Zannoni <ezannoni@kwikemart.cygnus.com> | 2001-05-11 19:53:38 +0000 |
|---|---|---|
| committer | Elena Zannoni <ezannoni@kwikemart.cygnus.com> | 2001-05-11 19:53:38 +0000 |
| commit | a602d56b17a58476abf78c104313c15de4b42d2a (patch) | |
| tree | 15a3e195b9769a9f3516c5914887c7d9efb6c682 | |
| parent | 40713331c51dc82a9c2bc9a35f7910623d748d54 (diff) | |
| download | gdb-a602d56b17a58476abf78c104313c15de4b42d2a.zip gdb-a602d56b17a58476abf78c104313c15de4b42d2a.tar.gz gdb-a602d56b17a58476abf78c104313c15de4b42d2a.tar.bz2 | |
2001-05-10 Elena Zannoni <ezannoni@redhat.com>
* gdb.base/completion.exp: Revamp test. Make it execute on all
platforms.
| -rw-r--r-- | gdb/testsuite/gdb.base/completion.exp | 32 |
1 files changed, 13 insertions, 19 deletions
diff --git a/gdb/testsuite/gdb.base/completion.exp b/gdb/testsuite/gdb.base/completion.exp index b08c8a0..9fa44c0 100644 --- a/gdb/testsuite/gdb.base/completion.exp +++ b/gdb/testsuite/gdb.base/completion.exp @@ -52,11 +52,6 @@ if $tracelevel then { } -if { ![istarget "hppa*-hp-hpux*"] } { - #skip all these tests for now (FIXME) - continue -} - global usestubs # @@ -379,7 +374,7 @@ gdb_expect { -re "^p 'a\\\x07$" { send_gdb "\t" gdb_expect { - -re "a64l.*atol.*$gdb_prompt p .a$" { + -re "a64l.*argv.*$gdb_prompt p .a$" { send_gdb "\n" gdb_expect { -re "Invalid character constant\\..*$gdb_prompt $" { @@ -439,7 +434,7 @@ gdb_expect { -re "^p b-a\\\x07$" { send_gdb "\t" gdb_expect { - -re "a64l.*atol.*$gdb_prompt p b-a$" { + -re "a64l.*argv.*$gdb_prompt p b-a$" { send_gdb "\n" gdb_expect { -re "No symbol \"b\" in current context\\..*$gdb_prompt $" { @@ -533,10 +528,10 @@ gdb_expect { } -send_gdb "file ${srcdir}/gdb.base/self\t" +send_gdb "file ${srcdir}/gdb.base/compl\t" sleep 1 gdb_expect { - -re "^file ${srcdir}/gdb.base/.*'selftest\\.exp' $"\ + -re "^file ${srcdir}/gdb.base/completion\\.exp $"\ { send_gdb "\n" gdb_expect { -re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $" @@ -544,20 +539,19 @@ gdb_expect { { send_gdb "n\n" gdb_expect { -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\ - { pass "complete 'file gdb.base/self'"} - -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'"} - timeout {fail "(timeout) complete 'file gdb.base/self'"} + { pass "complete 'file gdb.base/compl'"} + -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/compl'"} + timeout {fail "(timeout) complete 'file gdb.base/compl'"} } } - -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'"} - timeout {fail "(timeout) complete 'file gdb.base/self'"} + -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/compl'"} + timeout {fail "(timeout) complete 'file gdb.base/compl'"} } } - -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'" } - timeout { fail "(timeout) complete 'file gdb.base/self'" } + -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/compl'" } + timeout { fail "(timeout) complete 'file gdb.base/compl'" } } - send_gdb "info func mark\t" sleep 1 gdb_expect { @@ -569,7 +563,7 @@ gdb_expect { -re "marker1.*$gdb_prompt info func marker$"\ { send_gdb "\n" gdb_expect { - -re "All functions matching regular expression \"marker\":\r\n\r\nFile.*break.c:\r\nint marker1\\(.*\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long\\);\r\n$gdb_prompt $"\ + -re "All functions matching regular expression \"marker\":\r\n\r\nFile.*break.c:\r\nint marker1\\(\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long int\\);\r\n$gdb_prompt $"\ { pass "complete 'info func mar'"} -re ".*$gdb_prompt $" { fail "complete 'info func mar'"} timeout {fail "(timeout) complete 'info func mar'"} @@ -590,7 +584,7 @@ gdb_expect { -re "ask.*child.*parent.*$gdb_prompt set follow-fork-mode $"\ { send_gdb "\n" gdb_expect { - -re "Requires an argument.*parent.*child.*ask.*$gdb_prompt $"\ + -re "Requires an argument.*ask.*child.*parent.*$gdb_prompt $"\ { pass "complete 'set follow-fork-mode'"} -re "Ambiguous item \"\"\\..*$gdb_prompt $"\ { pass "complete 'set follow-fork-mode'"} |