diff options
| author | Bob Manson <manson@cygnus> | 1997-03-06 05:30:54 +0000 |
|---|---|---|
| committer | Bob Manson <manson@cygnus> | 1997-03-06 05:30:54 +0000 |
| commit | 2f693513f5b9a695aa0e52a2930b84840c018b8e (patch) | |
| tree | 31341ba4863d04812ff65276b4216baa67ea271d /gdb/testsuite/gdb.base/setshow.exp | |
| parent | db38473ab8f77b5e315cdf871d884ec864938193 (diff) | |
| download | gdb-2f693513f5b9a695aa0e52a2930b84840c018b8e.zip gdb-2f693513f5b9a695aa0e52a2930b84840c018b8e.tar.gz gdb-2f693513f5b9a695aa0e52a2930b84840c018b8e.tar.bz2 | |
* config/monitor.exp(gdb_target_monitor): Add pattern for
"Ending remote" to detect errors in connecting.
* gdb.base/setshow.exp: Add .* within auto language test.
Diffstat (limited to 'gdb/testsuite/gdb.base/setshow.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/setshow.exp | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/gdb/testsuite/gdb.base/setshow.exp b/gdb/testsuite/gdb.base/setshow.exp index c0ce98f..a23d9b7 100644 --- a/gdb/testsuite/gdb.base/setshow.exp +++ b/gdb/testsuite/gdb.base/setshow.exp @@ -55,27 +55,27 @@ gdb_test "show annotate" "Annotation_level is 0..*" "default annotation_level i #test set annotate 2 send_gdb "set annotate 2\n" -expect { - -re ".*\032\032pre-prompt.*$prompt .*\032\032prompt.*$" \ +gdb_expect { + -re ".*\032\032pre-prompt.*$gdb_prompt .*\032\032prompt.*$" \ { pass "set annotate 2" } - -re ".*$prompt $" { fail "set annotate 2" } + -re ".*$gdb_prompt $" { fail "set annotate 2" } timeout { fail "(timeout) set annotate 2" } } send_gdb "show annotate\n" -expect { - -re ".*\032\032post-prompt.*Annotation_level is 2..*\032\032pre-prompt.*$prompt .*\032\032prompt.*$" \ +gdb_expect { + -re ".*\032\032post-prompt.*Annotation_level is 2..*\032\032pre-prompt.*$gdb_prompt .*\032\032prompt.*$" \ { pass "show annotate (2)" } - -re ".*$prompt $" { fail "show annotate (2)" } + -re ".*$gdb_prompt $" { fail "show annotate (2)" } timeout { fail "(timeout) show annotate (2)" } } #test annotation_level 2 send_gdb "info line 1\n" -expect { - -re ".*\032\032post-prompt.*Line 1 of .* is at address .* but contains no code.*:1:0:beg:0x.*\032\032pre-prompt.*$prompt .*\032\032prompt.*$" \ +gdb_expect { + -re ".*\032\032post-prompt.*Line 1 of .* is at address .* but contains no code.*:1:0:beg:0x.*\032\032pre-prompt.*$gdb_prompt .*\032\032prompt.*$" \ { pass "annotation_level 2" } - -re ".*$prompt $" { fail "annotation_level 2" } + -re ".*$gdb_prompt $" { fail "annotation_level 2" } timeout { fail "(timeout) annotation_level 2" } } @@ -166,7 +166,7 @@ gdb_test "show language" "The current source language is \"asm\"..*" "show langu #test set language auto gdb_test "set language auto" "" "set language auto" #test show language -gdb_test "show language" "The current source language is \"auto\"..*" "show language (auto)" +gdb_test "show language" "The current source language is \"auto.*\"..*" "show language (auto)" #test set listsize 100 gdb_test "set listsize 100" "" "set listsize 100" #test show listsize 100 @@ -175,14 +175,14 @@ gdb_test "show listsize" "Number of source lines gdb will list by default is 100 #test set prompt (FooBarBaz) set newprompt "\\(FooBarBaz\\)" send_gdb "set prompt (FooBarBaz) \n" -expect { +gdb_expect { -re "$newprompt $" { pass "set prompt (FooBarBaz) " } timeout { fail "(timeout) set prompt (FooBarBaz) " } } #test show prompt (FooBarBaz) send_gdb "show prompt\n" -expect { +gdb_expect { -re "Gdb's prompt is \"$newprompt \"..* $" \ { pass "show prompt (FooBarBaz) " } timeout { fail "(timeout) show prompt (FooBarBaz) " } @@ -190,8 +190,8 @@ expect { #test set prompt (gdb) send_gdb "set prompt (gdb) \n" -expect { - -re "$prompt $" { pass "set prompt (gdb) " } +gdb_expect { + -re "$gdb_prompt $" { pass "set prompt (gdb) " } timeout { fail "(timeout) set prompt (gdb) " } } |