2000-03-23 Fernando Nasser <[email protected]>

[binutils.git] / gdb / testsuite / gdb.base / commands.exp

diff --git a/gdb/testsuite/gdb.base/commands.exp b/gdb/testsuite/gdb.base/commands.exp
index 71491dbb3b02ac791aba3cf2d8029387054117c7..f15f49d289d72cd9ffb5a467ecd3bcefabad19f5 100644 (file)
--- a/gdb/testsuite/gdb.base/commands.exp
+++ b/gdb/testsuite/gdb.base/commands.exp
@@ -375,6 +375,31 @@ proc test_command_prompt_position {} {
 }
 
 
+
+proc deprecated_command_test {} {
+    
+    
+    gdb_test "maintenance deprecate blah" "Can't find command.*" \
+          "tried to deprecate non-existsing command"
+
+    gdb_test "maintenance deprecate p \"new_p\"" ""
+    gdb_test "p 5" "Warning: 'p', an alias for the command 'print' is deprecated.*Use 'new_p'.*" "p deprecated warning, with replacement"
+    gdb_test "p 5" ".\[0-9\]* = 5.*" "Deprecated warning goes away"
+
+    gdb_test "maintenance deprecate p \"new_p\"" ""
+    gdb_test "maintenance deprecate print \"new_print\"" ""
+    gdb_test "p 5" "Warning: command 'print' \\(p\\) is deprecated.*Use 'new_print'.*" "both alias and command are deprecated"
+    gdb_test "p 5" ".\[0-9\]* = 5.*" "Deprecated warning goes away"
+
+    gdb_test "maintenance deprecate set endian big \"seb\" " "" "deprecate long comamnd"
+    gdb_test "set endian big" "Warning: command 'set endian big' is deprecated.*Use 'seb'.*" "long command deprecated"
+
+    gdb_test "maintenance deprecate set endian big" "" "deprecate long comamnd"
+    gdb_test "set endian big" "Warning: command 'set endian big' is deprecated.*No alternative known.*" "long command deprecated with no alternative."
+
+}
+
+
 gdbvar_simple_if_test
 gdbvar_simple_while_test
 gdbvar_complex_if_while_test
@@ -387,6 +412,9 @@ breakpoint_command_test
 user_defined_command_test
 watchpoint_command_test
 test_command_prompt_position
+deprecated_command_test
+
+