* gdb.base/setshow.exp: Don't run the set prompt tests if

the board has gdb_prompt set.
This commit is contained in:
Bob Manson 1997-05-22 04:24:23 +00:00
parent 3780c33708
commit 28558bdb36
2 changed files with 21 additions and 14 deletions

View File

@ -1,3 +1,8 @@
Wed May 21 21:23:16 1997 Bob Manson <manson@charmed.cygnus.com>
* gdb.base/setshow.exp: Don't run the set prompt tests if
the board has gdb_prompt set.
Tue May 20 08:58:49 1997 Jeffrey A Law (law@cygnus.com)
* gdb.base/a2-run.exp: Change "gdb,noargs" to just "noargs".

View File

@ -176,28 +176,30 @@ gdb_test "set listsize 100" "" "set listsize 100"
#test show listsize 100
gdb_test "show listsize" "Number of source lines gdb will list by default is 100..*" "show listsize (100)"
#test set prompt (FooBarBaz)
set newprompt "\\(FooBarBaz\\)"
send_gdb "set prompt (FooBarBaz) \n"
gdb_expect {
if ![board_info target exists gdb_prompt] {
#test set prompt (FooBarBaz)
set newprompt "\\(FooBarBaz\\)"
send_gdb "set prompt (FooBarBaz) \n"
gdb_expect {
-re "$newprompt $" { pass "set prompt (FooBarBaz) " }
timeout { fail "(timeout) set prompt (FooBarBaz) " }
}
}
#test show prompt (FooBarBaz)
send_gdb "show prompt\n"
gdb_expect {
#test show prompt (FooBarBaz)
send_gdb "show prompt\n"
gdb_expect {
-re "Gdb's prompt is \"$newprompt \"..* $" \
{ pass "show prompt (FooBarBaz) " }
{ pass "show prompt (FooBarBaz) " }
timeout { fail "(timeout) show prompt (FooBarBaz) " }
}
}
#test set prompt (gdb)
send_gdb "set prompt (gdb) \n"
gdb_expect {
#test set prompt (gdb)
send_gdb "set prompt (gdb) \n"
gdb_expect {
-re "$gdb_prompt $" { pass "set prompt (gdb) " }
timeout { fail "(timeout) set prompt (gdb) " }
}
}
}
#test set radix 11
gdb_test "set radix 11" "Unsupported output radix ``decimal 11''; output radix unchanged..*" "set radix 11"