Add $_memeq, $_regex, $_streq, $_strlen convenience functions.
* NEWS: Document them. * data-directory/Makefile.in (PYTHON_FILES): Add function/__init__.py, function/strfns.py. * python/py-type.c (typy_array_1): New function. (typy_array): Call it. (typy_vector): New function. (type_object_methods): Add "vector". * python/lib/gdb/function/__init__.py: New file. * python/lib/gdb/function/strfns.py: New file. doc/ * gdb.texinfo (Convenience Funs): New node. (Types In Python): Document Type.vector. testsuite/ * gdb.python/py-strfns.c: New file. * gdb.python/py-strfns.exp: New file. * gdb.python/py-type.exp (test_fields): Add vector tests.
This commit is contained in:
Doug Evans
parent
200bc880f4
commit
a72c32530e
12 changed files with 405 additions and 3 deletions
50
gdb/testsuite/gdb.python/py-strfns.c
Normal file
50
gdb/testsuite/gdb.python/py-strfns.c
Normal file
|
|
@ -0,0 +1,50 @@
|
|||
/* This testcase is part of GDB, the GNU debugger.
|
||||
|
||||
Copyright 2012 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/>. */
|
||||
|
||||
const char str1[] = "Hello.";
|
||||
const char str2[] = "Hello.";
|
||||
const char str3[] = "Goodbye.";
|
||||
|
||||
const char buf1[] = { 0, 1, 2, 3 };
|
||||
const char buf2[] = { 0, 1, 2, 3 };
|
||||
const char buf3[] = { 0, 1, 2, 4 };
|
||||
|
||||
static void
|
||||
func (const char *arg)
|
||||
{
|
||||
return; /* Break func here. */
|
||||
}
|
||||
|
||||
static void
|
||||
bfunc (const char *arg)
|
||||
{
|
||||
return; /* Break bfunc here. */
|
||||
}
|
||||
|
||||
int
|
||||
main ()
|
||||
{
|
||||
func (str1);
|
||||
func (str2);
|
||||
func (str3);
|
||||
|
||||
bfunc (buf1);
|
||||
bfunc (buf2);
|
||||
bfunc (buf3);
|
||||
|
||||
return 0;
|
||||
}
|
||||
103
gdb/testsuite/gdb.python/py-strfns.exp
Normal file
103
gdb/testsuite/gdb.python/py-strfns.exp
Normal file
|
|
@ -0,0 +1,103 @@
|
|||
# Copyright (C) 2012 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/>.
|
||||
|
||||
# This file is part of the GDB testsuite. It tests the convenience
|
||||
# functions in strfns.py.
|
||||
|
||||
load_lib gdb-python.exp
|
||||
|
||||
standard_testfile
|
||||
|
||||
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile}] } {
|
||||
return -1
|
||||
}
|
||||
|
||||
if ![runto_main] {
|
||||
return 0
|
||||
}
|
||||
|
||||
# Skip all tests if Python scripting is not enabled.
|
||||
if { [skip_python_tests] } { continue }
|
||||
|
||||
proc test_all_strfns { } {
|
||||
gdb_test "p \$_streq (str1, str2)" " = 1"
|
||||
gdb_test "p \$_streq (str1, str3)" " = 0"
|
||||
|
||||
gdb_test "p \$_strlen (str1)" " = 6"
|
||||
gdb_test "p \$_strlen (buf1)" " = 0"
|
||||
|
||||
gdb_test "p \$_memeq (buf1, buf2, 4)" " = 1"
|
||||
gdb_test "p \$_memeq (buf1, buf3, 4)" " = 0"
|
||||
|
||||
gdb_test {p $_regex (str1, "Hello")} " = 1"
|
||||
gdb_test {p $_regex (str1, "Help")} " = 0"
|
||||
gdb_test {p $_regex (str1, "^Hello")} " = 1"
|
||||
gdb_test {p $_regex (str1, "^Hello.$")} " = 1"
|
||||
}
|
||||
|
||||
test_all_strfns
|
||||
|
||||
# Verify use in a conditional breakpoint.
|
||||
|
||||
gdb_breakpoint [gdb_get_line_number "Break func here."]
|
||||
gdb_test_no_output "condition \$bpnum \$_streq (arg, \"Goodbye.\")"
|
||||
gdb_continue_to_breakpoint "Break func here."
|
||||
gdb_test "p arg" "= $hex <str3> \"Goodbye.\""
|
||||
|
||||
gdb_breakpoint [gdb_get_line_number "Break bfunc here."]
|
||||
gdb_test_no_output "condition \$bpnum \$_memeq (arg, buf3, 4)"
|
||||
gdb_continue_to_breakpoint "Break bfunc here."
|
||||
gdb_test "p /d {char\[4\]} arg" "= \\{0, 1, 2, 4\\}"
|
||||
|
||||
# Verify use on a core file.
|
||||
|
||||
proc test_strfns_core_file { } {
|
||||
global objdir subdir gdb_prompt testfile
|
||||
|
||||
set filename "${objdir}/${subdir}/py-strfns.core"
|
||||
set escapedfilename [string_to_regexp $filename]
|
||||
|
||||
gdb_test_multiple "gcore $filename" \
|
||||
"save a corefile" \
|
||||
{
|
||||
-re "Saved corefile ${escapedfilename}\[\r\n\]+$gdb_prompt $" {
|
||||
pass "save a corefile"
|
||||
}
|
||||
-re "Can't create a corefile\[\r\n\]+$gdb_prompt $" {
|
||||
unsupported "save a corefile"
|
||||
# No use proceeding from here.
|
||||
return
|
||||
}
|
||||
}
|
||||
|
||||
clean_restart $testfile
|
||||
|
||||
gdb_test_multiple "core $filename" \
|
||||
"re-load generated corefile" \
|
||||
{
|
||||
-re "Core was generated by .*$gdb_prompt $" {
|
||||
pass "re-load generated corefile"
|
||||
}
|
||||
-re ".*$gdb_prompt $" {
|
||||
fail "re-load generated corefile"
|
||||
# No use proceeding from here.
|
||||
return
|
||||
}
|
||||
}
|
||||
|
||||
test_all_strfns
|
||||
}
|
||||
|
||||
test_strfns_core_file
|
||||
|
|
@ -114,12 +114,27 @@ proc test_fields {lang} {
|
|||
gdb_test "python print len(fields)" "1" "Check the number of fields"
|
||||
gdb_test "python print fields\[0\].type" "<range type>" "Check array field type"
|
||||
|
||||
# Test gdb.Type.array.
|
||||
gdb_test "python print ar\[0\].cast(ar\[0\].type.array(1))" \
|
||||
".1, 2." "cast to array with one argument"
|
||||
gdb_test "python print ar\[0\].cast(ar\[0\].type.array(0, 1))" \
|
||||
".1, 2." "cast to array with two arguments"
|
||||
|
||||
gdb_test "python print ar\[0\].type == ar\[0\].type" "True"
|
||||
|
||||
# Test gdb.Type.vector.
|
||||
# Note: vectors cast differently than arrays. Here ar[0] is replicated
|
||||
# for the size of the vector.
|
||||
gdb_py_test_silent_cmd \
|
||||
"python vec1 = ar\[0\].cast(ar\[0\].type.vector(1))" "set vec1" 1
|
||||
gdb_test "python print vec1" ".1, 1." "cast to vector with one argument"
|
||||
gdb_py_test_silent_cmd \
|
||||
"python vec2 = ar\[0\].cast(ar\[0\].type.vector(0, 1))" "set vec2" 1
|
||||
gdb_test "python print vec2" ".1, 1." "cast to vector with two arguments"
|
||||
gdb_test "python print vec1 == vec2" "True"
|
||||
gdb_py_test_silent_cmd \
|
||||
"python vec3 = ar\[1\].cast(ar\[1\].type.vector(1))" "set vec3" 1
|
||||
gdb_test "python print vec1 == vec3" "False"
|
||||
}
|
||||
|
||||
proc test_enums {} {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue