From ca3dbcc867db23528da2f61e82d720c547159fed Mon Sep 17 00:00:00 2001 From: Mircea Gherzan Date: Wed, 12 Dec 2012 21:25:09 +0000 Subject: [PATCH] MI: tests for -catch-load/-catch-unload Added basic MI tests for the -catch-load and -catch-unload MI commands. 2012-11-19 Keven Boell gdb/testsuite: * gdb.mi/mi-catch-load-so.c: New. Clone of the catch load test library source file. * gdb.mi/mi-catch-load.c: New. Clone of the catch load test source file. * gdb.mi/mi-catch-load.exp: New. Test file for basic MI -catch-load and -catch-unload tests. --- gdb/testsuite/ChangeLog | 9 ++++ gdb/testsuite/gdb.mi/mi-catch-load-so.c | 22 ++++++++ gdb/testsuite/gdb.mi/mi-catch-load.c | 33 ++++++++++++ gdb/testsuite/gdb.mi/mi-catch-load.exp | 93 +++++++++++++++++++++++++++++++++ 4 files changed, 157 insertions(+) create mode 100644 gdb/testsuite/gdb.mi/mi-catch-load-so.c create mode 100644 gdb/testsuite/gdb.mi/mi-catch-load.c create mode 100644 gdb/testsuite/gdb.mi/mi-catch-load.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 0673bab..db19fbd 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,12 @@ +2012-12-12 Keven Boell + + * gdb.mi/mi-catch-load-so.c: New. Clone of the + catch load test library source file. + * gdb.mi/mi-catch-load.c: New. Clone of the catch + load test source file. + * gdb.mi/mi-catch-load.exp: New. Test file for + basic MI -catch-load and -catch-unload tests. + 2012-12-11 Paul Koning * gdb.python/py-prettyprint.py (_iterator): Remove exception_flag diff --git a/gdb/testsuite/gdb.mi/mi-catch-load-so.c b/gdb/testsuite/gdb.mi/mi-catch-load-so.c new file mode 100644 index 0000000..8c3d0d6 --- /dev/null +++ b/gdb/testsuite/gdb.mi/mi-catch-load-so.c @@ -0,0 +1,22 @@ +/* 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 . */ + +int +f (void) +{ + return 23; +} diff --git a/gdb/testsuite/gdb.mi/mi-catch-load.c b/gdb/testsuite/gdb.mi/mi-catch-load.c new file mode 100644 index 0000000..0035c88 --- /dev/null +++ b/gdb/testsuite/gdb.mi/mi-catch-load.c @@ -0,0 +1,33 @@ +/* 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 . */ + +#include +#include + +char *libname = "mi-catch-load-so.so"; + +int +main () +{ + void *h; + + h = dlopen (libname, RTLD_LAZY); + + dlclose (h); + + return 0; +} diff --git a/gdb/testsuite/gdb.mi/mi-catch-load.exp b/gdb/testsuite/gdb.mi/mi-catch-load.exp new file mode 100644 index 0000000..1cd8ba9 --- /dev/null +++ b/gdb/testsuite/gdb.mi/mi-catch-load.exp @@ -0,0 +1,93 @@ +# 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 . +# +load_lib mi-support.exp + +if {[skip_shlib_tests]} { + return -1 +} + +gdb_exit +if [mi_gdb_start] { + continue +} + +if {[get_compiler_info]} { + warning "Could not get compiler info" + untested mi-catch-load.exp + return -1 +} + +standard_testfile mi-catch-load.c + +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug shlib_load}] != "" } { + untested mi-catch-load.exp + return -1 +} + +set testfile2 mi-catch-load-so +set srcfile2 ${testfile2}.c +set binfile2 [standard_output_file ${testfile2}.so] +set binfile2_dlopen [shlib_target_file ${testfile2}.so] +if { [gdb_compile_shlib "${srcdir}/${subdir}/${srcfile2}" ${binfile2} {debug}] != "" } { + untested mi-catch-load.exp + return -1 +} +mi_run_to_main + +# test -catch-load +mi_gdb_test "111-gdb-set auto-solib-add on" "111\\^done" "catch-load: auto-solib-add on" +mi_gdb_test "222-catch-load -t mi-catch-load-so.so*" \ + "222\\^done,bkpt=\{number=\"2\",type=\"catchpoint\",disp=\"del\",enabled=\"y\",what=\"load of library matching mi-catch-load-so\.so\\*\",times=\"0\"\}" \ + "catch-load: catch load" +mi_send_resuming_command "exec-continue" "catch-load: continue" + +gdb_expect { + -re "\\*stopped.*reason=\"solib-event\".*added=.*\r\n.*\r\n$mi_gdb_prompt$" { + pass "catch-load: solib-event stop" + } + -re ".*$mi_gdb_prompt$" { + fail "catch-load: solib-event stop" + } + timeout { + fail "(timeout) catch-load: solib-event stop" + } +} + +mi_gdb_exit + + +if [mi_gdb_start] { + continue +} +mi_run_to_main + +# test -catch-unload +mi_gdb_test "111-gdb-set auto-solib-add on" "111\\^done" "catch-unload: auto-solib-add on" +mi_gdb_test "222-catch-unload -t mi-catch-load-so.so*" \ + "222\\^done,bkpt=\{number=\"2\",type=\"catchpoint\",disp=\"del\",enabled=\"y\",what=\"unload of library matching mi-catch-load-so\.so\\*\",times=\"0\"\}" \ + "catch-unload: catch unload" +mi_send_resuming_command "exec-continue" "catch-unload: continue" + +gdb_expect { + -re "\\*stopped.*reason=\"solib-event\".*removed=.*\r\n.*\r\n$mi_gdb_prompt$" { + pass "catch-unload: solib-event stop" + } + -re ".*$mi_gdb_prompt$" { + fail "catch-unload: solib-event stop" + } + timeout { + fail "(timeout) catch-unload: solib-event stop" + } +} -- 2.7.4