From: Joel Brobecker Date: Thu, 1 May 2008 17:48:23 +0000 (+0000) Subject: * gdb.base/info-target.exp: New testcase. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=36d520f5f660dd788e0bcc5471439af7e5aca7bc;p=binutils-gdb.git * gdb.base/info-target.exp: New testcase. --- diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 8232f0b6cf2..bbda0f5d3ff 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2008-05-01 Joel Brobecker + + * gdb.base/info-target.exp: New testcase. + 2008-04-30 Daniel Jacobowitz * gdb.cp/hang.exp: Use .cc instead of .C. diff --git a/gdb/testsuite/gdb.base/info-target.exp b/gdb/testsuite/gdb.base/info-target.exp new file mode 100644 index 00000000000..5cbf570fdb9 --- /dev/null +++ b/gdb/testsuite/gdb.base/info-target.exp @@ -0,0 +1,44 @@ +# 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 +} + +set prms_id 0 +set bug_id 0 + +set testfile start +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { + return -1 +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +set eol "\[\r\n\]+" + +# Check the output of "info target". Note that we are not interested +# in this case in checking the actual info, but rather to make sure that +# it is formatted properly. For instance, make sure that no '\n' is +# missing at the end some lines. +gdb_test "info target" \ + "Symbols from \".*${testfile}.*\"\\..*${eol}Local exec file:${eol}.*Entry point: 0x\[0-9a-zA-Z\]+${eol}.*" \ + "info target" +