* gdb.base/finish.exp: Test that "fin" works as an abbreviation
of the "finish" command.
This commit is contained in:
parent
0e479716ae
commit
5943254b56
2 changed files with 21 additions and 0 deletions
|
@ -1,3 +1,8 @@
|
|||
2008-05-20 Joel Brobecker <brobecker@adacore.com>
|
||||
|
||||
* gdb.base/finish.exp: Test that "fin" works as an abbreviation
|
||||
of the "finish" command.
|
||||
|
||||
2008-05-21 Nick Roberts <nickrob@snap.net.nz>
|
||||
|
||||
* gdb.base/annota1.exp: Test for new annotation.
|
||||
|
|
|
@ -97,6 +97,21 @@ proc finish_void { } {
|
|||
}
|
||||
}
|
||||
|
||||
# A function that tests that the given ABBREV is a working abbreviation
|
||||
# of the "finish" command.
|
||||
|
||||
proc finish_abbreviation { abbrev } {
|
||||
|
||||
if { ! [ runto "int_func" ] } then {
|
||||
fail "running to int_func"
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_test "$abbrev" \
|
||||
"Value returned is .* = 1" \
|
||||
"Testing the \"$abbrev\" abbreviation for \"finish\""
|
||||
}
|
||||
|
||||
proc finish_tests { } {
|
||||
global gdb_prompt
|
||||
|
||||
|
@ -113,6 +128,7 @@ proc finish_tests { } {
|
|||
finish_1 "long_long"
|
||||
finish_1 "float"
|
||||
finish_1 "double"
|
||||
finish_abbreviation "fin"
|
||||
}
|
||||
|
||||
# Start with a fresh gdb.
|
||||
|
|
Loading…
Reference in a new issue