diff options
| author | Pedro Alves <palves@redhat.com> | 2016-12-02 19:17:13 +0000 |
|---|---|---|
| committer | Pedro Alves <palves@redhat.com> | 2016-12-02 19:22:23 +0000 |
| commit | ec835369f121c11d6e9484ed8c6c11097ad545c5 (patch) | |
| tree | 5ebc63d7cf058de100d74a8d55d62d26d934860d /gdb | |
| parent | 01770bbde902e075e524b518ac6c1087a4cc1cfb (diff) | |
| download | gdb-ec835369f121c11d6e9484ed8c6c11097ad545c5.zip gdb-ec835369f121c11d6e9484ed8c6c11097ad545c5.tar.gz gdb-ec835369f121c11d6e9484ed8c6c11097ad545c5.tar.bz2 | |
Test user-defined gdb commands and arguments stack
We're missing a test that makes sure that arguments to user-defined
commands are handled correctly when a user-defined command calls
another user-defined command / recurses.
The following patch changes that code, so add such a test first so we
can be confident won't be breaking this use case.
gdb/testsuite/ChangeLog:
2016-12-02 Pedro Alves <palves@redhat.com>
* gdb.base/commands.exp (user_defined_command_args_stack_test):
New procedure.
(top level): Call it.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/commands.exp | 59 |
2 files changed, 65 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index c6ee462..bfae18b 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,11 @@ 2016-12-02 Pedro Alves <palves@redhat.com> + * gdb.base/commands.exp (user_defined_command_args_stack_test): + New procedure. + (top level): Call it. + +2016-12-02 Pedro Alves <palves@redhat.com> + PR cli/20559 * gdb.base/commands.exp (user_defined_command_args_eval): New procedure. diff --git a/gdb/testsuite/gdb.base/commands.exp b/gdb/testsuite/gdb.base/commands.exp index 3308a9b..ed85ee2 100644 --- a/gdb/testsuite/gdb.base/commands.exp +++ b/gdb/testsuite/gdb.base/commands.exp @@ -382,6 +382,64 @@ proc_with_prefix user_defined_command_args_eval {} { gdb_test "command_args_eval 1 2 3" "argc = 3, 1 2 3" "execute command" } +# Test that the $argc/$argN variables are pushed on/popped from the +# args stack correctly when a user-defined command calls another +# user-defined command (or in this case, recurses). + +proc_with_prefix user_defined_command_args_stack_test {} { + global gdb_prompt + + gdb_test_multiple "define args_stack_command" \ + "define args_stack_command" { + -re "End with" { + pass "define" + } + } + + # Make a command that refers to $argc/$argN before and after + # recursing. Also, vary the number of arguments passed to each + # recursion point. + gdb_test \ + [multi_line \ + {printf "before, argc = %d,", $argc} \ + {set $i = 0} \ + {while $i < $argc} \ + { eval "printf \" %%d\", $arg%d", $i} \ + { set $i = $i + 1} \ + {end} \ + {printf "\n"} \ + {} \ + {} \ + {if $argc == 3} \ + { args_stack_command 21 22} \ + {end} \ + {if $argc == 2} \ + { args_stack_command 11} \ + {end} \ + {} \ + {} \ + {printf "after, argc = %d,", $argc} \ + {set $i = 0} \ + {while $i < $argc} \ + { eval "printf \" %%d\", $arg%d", $i} \ + { set $i = $i + 1} \ + {end} \ + {printf "\n"} \ + {end}] \ + "" \ + "enter commands" + + set expected \ + [multi_line \ + "before, argc = 3, 31 32 33" \ + "before, argc = 2, 21 22" \ + "before, argc = 1, 11" \ + "after, argc = 1, 11" \ + "after, argc = 2, 21 22" \ + "after, argc = 3, 31 32 33"] + gdb_test "args_stack_command 31 32 33" $expected "execute command" +} + proc_with_prefix watchpoint_command_test {} { global gdb_prompt @@ -913,6 +971,7 @@ infrun_breakpoint_command_test breakpoint_command_test user_defined_command_test user_defined_command_args_eval +user_defined_command_args_stack_test watchpoint_command_test test_command_prompt_position deprecated_command_test |