[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.mi / gdb701.exp

# Copyright 2002, 2007, 2008 Free Software Foundation, Inc.

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu

#
# test gdb/701
#

load_lib mi-support.exp
set MIFLAGS "-i=mi"

gdb_exit
if [mi_gdb_start] {
    continue
}

set testfile gdb701
set srcfile "$testfile.c"
set binfile $objdir/$subdir/$testfile
if {[gdb_compile $srcdir/$subdir/$srcfile $binfile executable debug] != ""} {
  untested gdb701.exp
  return -1
}

# When varobj reports the types of objects, it often isn't really reporting
# the type as GDB knows it. For example, in this testcase, we have a
# structure which has been typedefed. A varobj of this type would really have
# a type of "TYPE_CODE_TYPEDEF". It's target type is "TYPE_CODE_STRUCT". Varobj
# should skip over the TYPEDEF type when figuring out the varobj's children.
# If it doesn't, Bad Things Happen(TM).

# Run to main
mi_run_to_main

# Step over "foo = 0"
mi_next "step over \"foo = 0\""

mi_gdb_test "-var-create fooPtr * foo" \
  "(&\".*\"\r\n)*\\^done,name=\"fooPtr\",numchild=\"3\",value=\".*\",type=\"Foo \\*\"" \
  "create fooPtr"

mi_gdb_test "-var-list-children fooPtr" \
  "(&\".*\"\r\n)*\\^done,numchild=\"3\",.*" \
  "list children of fooPtr"

foreach i [list x y z] {
  mi_gdb_test "-var-list-children fooPtr.$i" \
    "(&\".*\"\r\n)*\\^done,numchild=\"0\"" \
    "list children of fooPtr.$i"
}

mi_gdb_exit
return 0
Commit	Line	Data
	1	# Copyright 2002, 2007, 2008 Free Software Foundation, Inc.
	2
	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.
	7	#
	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.
	12	#
	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/>.
	15
	16	# Please email any bugs, comments, and/or additions to this file to:
	17	# bug-gdb@prep.ai.mit.edu
	18
	19	#
	20	# test gdb/701
	21	#
	22
	23	load_lib mi-support.exp
	24	set MIFLAGS "-i=mi"
	25
	26	gdb_exit
	27	if [mi_gdb_start] {
	28	continue
	29	}
	30
	31	set testfile gdb701
	32	set srcfile "$testfile.c"
	33	set binfile $objdir/$subdir/$testfile
	34	if {[gdb_compile $srcdir/$subdir/$srcfile $binfile executable debug] != ""} {
	35	untested gdb701.exp
	36	return -1
	37	}
	38
	39	# When varobj reports the types of objects, it often isn't really reporting
	40	# the type as GDB knows it. For example, in this testcase, we have a
	41	# structure which has been typedefed. A varobj of this type would really have
	42	# a type of "TYPE_CODE_TYPEDEF". It's target type is "TYPE_CODE_STRUCT". Varobj
	43	# should skip over the TYPEDEF type when figuring out the varobj's children.
	44	# If it doesn't, Bad Things Happen(TM).
	45
	46	# Run to main
	47	mi_run_to_main
	48
	49	# Step over "foo = 0"
	50	mi_next "step over \"foo = 0\""
	51
	52	mi_gdb_test "-var-create fooPtr * foo" \
	53	"(&\".\"\r\n)\\^done,name=\"fooPtr\",numchild=\"3\",value=\".\",type=\"Foo \\\"" \
	54	"create fooPtr"
	55
	56	mi_gdb_test "-var-list-children fooPtr" \
	57	"(&\".\"\r\n)\\^done,numchild=\"3\",.*" \
	58	"list children of fooPtr"
	59
	60	foreach i [list x y z] {
	61	mi_gdb_test "-var-list-children fooPtr.$i" \
	62	"(&\".\"\r\n)\\^done,numchild=\"0\"" \
	63	"list children of fooPtr.$i"
	64	}
	65
	66	mi_gdb_exit
	67	return 0