From c484b2578036a0971e50dc92349258c92f703644 Mon Sep 17 00:00:00 2001 From: brobecke Date: Fri, 1 Feb 2008 23:15:36 +0000 Subject: [PATCH] * gdb.ada/sym_print_name: New test program. * gdb.ada/sym_print_name.exp: New testcase. --- gdb/testsuite/ChangeLog | 7 ++- gdb/testsuite/gdb.ada/sym_print_name.exp | 73 ++++++++++++++++++++++++++++ gdb/testsuite/gdb.ada/sym_print_name/foo.adb | 22 +++++++++ gdb/testsuite/gdb.ada/sym_print_name/pck.adb | 21 ++++++++ gdb/testsuite/gdb.ada/sym_print_name/pck.ads | 26 ++++++++++ 5 files changed, 148 insertions(+), 1 deletion(-) create mode 100644 gdb/testsuite/gdb.ada/sym_print_name.exp create mode 100644 gdb/testsuite/gdb.ada/sym_print_name/foo.adb create mode 100644 gdb/testsuite/gdb.ada/sym_print_name/pck.adb create mode 100644 gdb/testsuite/gdb.ada/sym_print_name/pck.ads diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index a8be4c3c91..68e581b7bc 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,4 +1,9 @@ -2007-12-27 Joel Brobecker +2007-02-01 Joel Brobecker + + * gdb.ada/sym_print_name: New test program. + * gdb.ada/sym_print_name.exp: New testcase. + +2007-02-01 Joel Brobecker * gdb.ada/nested/hello.adb: New file. * gdb.ada/nested.exp: New testcase. diff --git a/gdb/testsuite/gdb.ada/sym_print_name.exp b/gdb/testsuite/gdb.ada/sym_print_name.exp new file mode 100644 index 0000000000..6a98abf2bc --- /dev/null +++ b/gdb/testsuite/gdb.ada/sym_print_name.exp @@ -0,0 +1,73 @@ +# Copyright 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 . + +if $tracelevel then { + strace $tracelevel +} + +load_lib "ada.exp" + +set testdir "sym_print_name" +set testfile "${testdir}/foo" +set srcfile ${srcdir}/${subdir}/${testfile}.adb +set binfile ${objdir}/${subdir}/${testfile} + +file mkdir ${objdir}/${subdir}/${testdir} +if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { + return -1 +} + +# A convenience function that joins all the arguments together, +# with a regexp that matches zero-or-more end of lines in between +# each argument. This function is ideal to write the expected output +# of a GDB command that generates more than a couple of lines, as +# this allows us to write each line as a separate string, which is +# easier to read by a human being. + +proc multi_line { args } { + return [join $args "\[\r\n\]*"] +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] +runto "foo.adb:$bp_location" + +set menu [multi_line "Multiple matches for i" \ + "\\\[0\\\] cancel" \ + "\\\[1\\\] pck\\.first\\.i.*" \ + "\\\[2\\\] pck\\.second\\.i.*" \ + "> $" ] + +set test_name "multiple matches for symbol i" +gdb_test_multiple "print i" "$test_name" \ +{ + -re "$menu" { + pass "$test_name" + } + + default { + fail "$test_name" + } +} + +# Select the first choice from the multiple-choice menu above. +gdb_test "1" \ + "48" \ + "select first choice from multiple-choice menu" + diff --git a/gdb/testsuite/gdb.ada/sym_print_name/foo.adb b/gdb/testsuite/gdb.ada/sym_print_name/foo.adb new file mode 100644 index 0000000000..0333e35e6e --- /dev/null +++ b/gdb/testsuite/gdb.ada/sym_print_name/foo.adb @@ -0,0 +1,22 @@ +-- Copyright 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 . + +with Pck; use Pck; + +procedure Foo is +begin + Do_Nothing (First.I); -- STOP + Do_Nothing (Second.I); +end Foo; diff --git a/gdb/testsuite/gdb.ada/sym_print_name/pck.adb b/gdb/testsuite/gdb.ada/sym_print_name/pck.adb new file mode 100644 index 0000000000..6dc301c60a --- /dev/null +++ b/gdb/testsuite/gdb.ada/sym_print_name/pck.adb @@ -0,0 +1,21 @@ +-- Copyright 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 . + +package body Pck is + procedure Do_Nothing (Val : in out Integer) is + begin + null; + end Do_Nothing; +end Pck; diff --git a/gdb/testsuite/gdb.ada/sym_print_name/pck.ads b/gdb/testsuite/gdb.ada/sym_print_name/pck.ads new file mode 100644 index 0000000000..57d1cdacc9 --- /dev/null +++ b/gdb/testsuite/gdb.ada/sym_print_name/pck.ads @@ -0,0 +1,26 @@ +-- Copyright 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 . + +package Pck is + package First is + I : Integer := 48; + end First; + + package Second is + I : Integer := 74; + end Second; + + procedure Do_Nothing (Val : in out Integer); +end Pck; -- 2.11.0