2000-03-23 Fernando Nasser <fnasser@totem.to.cygnus.com>

	From David Whedon <dwhedon@gordian.com>
        * gdb.base/commands.exp : Added command deprecator tests.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index ded1f39d9bc4847cd8dce26aeeb8c06bd14c10a3..e2d73142f9cc2fd70c689d857eb20a47f8907db3 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2000-03-23  Fernando Nasser  <fnasser@totem.to.cygnus.com>
+
+       From David Whedon <dwhedon@gordian.com>
+        * gdb.base/commands.exp : Added command deprecator tests.
+
 2000-03-22  Daniel Berlin   <dan@cgsoftware.com>
 
        * gdb.base/help.exp: Added test for new apropos command.

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
+
+