1 # Copyright (C) 2008, 2009 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <http://www.gnu.org/licenses/>.
16 # This file is part of the GDB testsuite. It tests Python-based
17 # pretty-printing for MI.
19 load_lib mi-support.exp
27 set testfile "py-prettyprint"
28 set srcfile ${testfile}.c
29 set binfile ${objdir}/${subdir}/${testfile}
30 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DMI}] != "" } {
31 untested mi2-var-child.exp
36 mi_gdb_reinitialize_dir $srcdir/$subdir
37 mi_gdb_load ${binfile}
39 if {[lsearch -exact [mi_get_features] python] < 0} {
40 unsupported "python support is disabled"
46 set remote_python_file [remote_download host ${srcdir}/${subdir}/${testfile}.py]
48 mi_gdb_test "python execfile ('${remote_python_file}')" ""
50 mi_continue_to_line [gdb_get_line_number {MI breakpoint here} ${testfile}.c] \
53 mi_create_dynamic_varobj container c \
54 "create container varobj, no pretty-printing"
56 mi_list_varobj_children container {
57 { container.name name 1 string }
58 { container.len len 0 int }
59 { container.elements elements 1 "int ." }
60 } "examine container children=0, no pretty-printing"
62 mi_delete_varobj container "delete varobj"
64 mi_gdb_test "-enable-pretty-printing" ""
66 mi_create_varobj_checked string string_1 \
67 "struct string_repr" \
68 "create string_1 varobj"
70 mi_gdb_test "-data-evaluate-expression \"string_1 = string_2\"" ".*" \
71 "assign string_1 from string_2"
73 mi_gdb_test "-var-update string" \
74 "\\^done,changelist=\\\[{name=\"string\",in_scope=\"true\",type_changed=\"false\",dynamic=\"1\",has_more=\"0\"}\\\]" \
75 "update string varobj after assignment"
77 mi_create_dynamic_varobj container c \
78 "create container varobj"
80 mi_list_varobj_children container {
81 } "examine container children=0"
83 mi_next "next over update 1"
85 mi_varobj_update_dynamic container "varobj update 1" {
86 type_changed false new_num_children 1 dynamic 1 has_more 0
89 { name {container.\[0\]} exp {\[0\]} numchild 0 type int thread-id 1 }
92 mi_next "next over update 2"
94 mi_varobj_update_dynamic container "varobj update 2" {
95 type_changed false new_num_children 2 dynamic 1 has_more 0
98 { name {container.\[1\]} exp {\[1\]} numchild 0 type int thread-id 1 }
101 mi_gdb_test "-var-set-visualizer container None" \
105 mi_gdb_test "-var-update container" \
106 "\\^done,changelist=\\\[\\\]" \
107 "varobj update after clearing"
109 mi_gdb_test "-var-set-visualizer container gdb.default_visualizer" \
111 "choose default visualizer"
113 mi_varobj_update_dynamic container "varobj update after choosing default" {
114 type_changed false new_num_children 2 dynamic 1 has_more 0
117 { name {container.\[0\]} exp {\[0\]} numchild 0 type int thread-id 1 }
118 { name {container.\[1\]} exp {\[1\]} numchild 0 type int thread-id 1 }
121 mi_gdb_test "-var-set-visualizer container ContainerPrinter" \
123 "choose visualizer using expression"
125 mi_varobj_update_dynamic container \
126 "varobj update after choosing via expression" {
127 type_changed false new_num_children 2 dynamic 1 has_more 0
130 { name {container.\[0\]} exp {\[0\]} numchild 0 type int thread-id 1 }
131 { name {container.\[1\]} exp {\[1\]} numchild 0 type int thread-id 1 }
134 mi_list_varobj_children_range container 1 2 2 {
135 { {container.\[1\]} {\[1\]} 0 int }
136 } "list varobj children after selecting child range"
138 mi_list_varobj_children_range container -1 -1 2 {
139 { {container.\[0\]} {\[0\]} 0 int }
140 { {container.\[1\]} {\[1\]} 0 int }
141 } "list varobj children after resetting child range"
143 mi_next "next over update 3"
145 mi_gdb_test "-var-set-update-range container 0 1" \
149 # This should truncate the list.
150 mi_list_varobj_children container {
151 { {container.\[0\]} {\[0\]} 0 int }
152 } "list children after setting update range"
154 # This should return just the items in [1,2).
155 mi_list_varobj_children_range container 1 2 2 {
156 { {container.\[1\]} {\[1\]} 0 int }
157 } "list selected children after setting range"
159 # This should not be affected by the previous list-children request.
160 mi_list_varobj_children container {
161 { {container.\[0\]} {\[0\]} 0 int }
162 } "list children after listing selected range"
164 mi_next "next over update 4"
166 # This should only show the first child, because the update range has
168 mi_varobj_update_dynamic container \
169 "update after next with restricted range" {
170 type_changed false new_num_children 1 dynamic 1 has_more 1
172 { name {container.\[0\]} in_scope true type_changed false dynamic 1 has_more 0 }
176 mi_gdb_test "-var-set-update-range container 3 4" \
178 "set update range with non-zero start"
180 # Elements were updated but should not be reported.
181 mi_varobj_update_dynamic container \
182 "update varobj with change outside selected range" {
183 type_changed false new_num_children 3 dynamic 1 has_more 0
188 mi_next "next over update 5"
190 # Regression test: examine an object that has no children, then update
191 # it to ensure that we don't print the children.
192 mi_create_dynamic_varobj container2 c2 \
193 "create second container varobj"
195 mi_gdb_test "-var-update container2" \
196 "\\^done,changelist=.." \
197 "update varobj, no children requested"
199 mi_next "next over update 6"
201 # Now container2 has an element -- and an update should mention that
202 # it has_more. But, because we did not request children, we still
203 # should not actually see them.
204 mi_varobj_update_dynamic container2 \
205 "update varobj 2, no children requested" {
206 type_changed false dynamic 1 has_more 1
209 mi_continue_to_line \
210 [gdb_get_line_number {MI outer breakpoint here} ${testfile}.c] \
211 "step to outer breakpoint"
213 mi_create_dynamic_varobj outer outer \
214 "create outer varobj"
216 mi_list_varobj_children outer {
217 { outer.s s 2 "struct substruct" }
218 { outer.x x 0 "int" }
219 } "list children of outer"
221 mi_list_varobj_children outer.s {
222 { outer.s.a a 0 int }
223 { outer.s.b b 0 int }
224 } "list children of outer.s"
226 mi_next "next over outer update"
228 mi_gdb_test "-var-update outer" \
229 ".done,changelist=.{name=\"outer.s.a\",in_scope=\"true\",type_changed=\"false\",dynamic=\"1\",has_more=\"0\"}." \
230 "update after updating element of outer"
232 mi_continue_to_line \
233 [gdb_get_line_number {Another MI breakpoint} ${testfile}.c] \
234 "step to second breakpoint"
236 mi_varobj_update_with_type_change container int 0 "update after type change"
238 remote_file host delete ${remote_python_file}