Add "set print finish"

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / finish.exp

diff --git a/gdb/testsuite/gdb.base/finish.exp b/gdb/testsuite/gdb.base/finish.exp
index 3bdc5d4726ed0dfe8894095a7f6977085a44e6d1..56f3c10e3f087c170c416c9fbc57500f62c9f065 100644 (file)
--- a/gdb/testsuite/gdb.base/finish.exp
+++ b/gdb/testsuite/gdb.base/finish.exp
@@ -86,6 +86,21 @@ proc finish_abbreviation { abbrev } {
              "Testing the \"$abbrev\" abbreviation for \"finish\""
 }
 
+# Test "set print finish off".
+proc finish_no_print {} {
+    global decimal
+
+    if {![runto "int_func"]} {
+       untested "couldn't run to main"
+       return
+    }
+    gdb_test_no_output "set print finish off"
+    gdb_test "finish" \
+       "Value returned is \\\$$decimal = <not displayed>"
+    gdb_test "print \$" " = 1" \
+       "Ensure return value was properly saved"
+}
+
 proc finish_tests { } {
     global gdb_prompt skip_float_test
 
@@ -105,6 +120,7 @@ proc finish_tests { } {
        finish_1 "double"
     }
     finish_abbreviation "fin"
+    finish_no_print
 }
 
 set prev_timeout $timeout