* gdb.base/finish.exp: Test that "fin" works as an abbreviation

of the "finish" command.
This commit is contained in:
Joel Brobecker 2008-05-21 17:55:22 +00:00
parent 0e479716ae
commit 5943254b56
2 changed files with 21 additions and 0 deletions

View file

@ -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.

View file

@ -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.