From: David Taylor Date: Sat, 9 Jan 1999 00:00:54 +0000 (+0000) Subject: new files -- from HP merge. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e1260544e140aef88d0b2dc9adc24d054e17305c;p=binutils-gdb.git new files -- from HP merge. --- diff --git a/gdb/testsuite/gdb.base/.Sanitize b/gdb/testsuite/gdb.base/.Sanitize index 6e948075c41..55019b396f5 100644 --- a/gdb/testsuite/gdb.base/.Sanitize +++ b/gdb/testsuite/gdb.base/.Sanitize @@ -67,6 +67,7 @@ d10vovly.c default.exp define.exp display.c +display.exp dollar.exp echo.exp ena-dis-br.exp @@ -101,6 +102,7 @@ list0.h list1.c logical.exp long_long.c +long_long.exp m32r.ld m32rovly.c m68k-aout.u @@ -162,6 +164,7 @@ smoke.c smoke.cc smoke.exp solib.c +solib.exp solib1.c solib2.c so-impl-ld.c @@ -172,6 +175,7 @@ sparc-aout.u sparc-elf.u ss.h step-test.c +step-test.exp structs2.c structs2.exp term.exp diff --git a/gdb/testsuite/gdb.base/sect-cmd.exp b/gdb/testsuite/gdb.base/sect-cmd.exp new file mode 100644 index 00000000000..27bde04452a --- /dev/null +++ b/gdb/testsuite/gdb.base/sect-cmd.exp @@ -0,0 +1,109 @@ +# Copyright (C) 1997, 1998 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 2 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, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +# Please email any bugs, comments, and/or additions to this file to: +# bug-gdb@prep.ai.mit.edu + +if $tracelevel then { + strace $tracelevel + } + +global usestubs + +# +# test running programs +# +set prms_id 0 +set bug_id 0 + +# This test exists solely to exercise the "section" command for +# code-coverage on HP-UX. (So far as I can tell, the "section" +# command isn't needed on HP-UX, but probably is for embedded +# apps.) +# +if ![istarget "hppa*-*-hpux*"] then { + return +} + +set testfile "break" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { + gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +if ![runto_main] then { fail "section command tests suppressed" } + +# Get the $CODE$ section's starting address. +# +# (Note that this works for PA32 programs, which use the SOM file +# format. PA64 uses ELF, and when support for that is added, it's +# not clear that there'll be a section named "$CODE$" in such +# programs.) +# +send_gdb "info files\n" +gdb_expect { + -re ".*(0x\[0-9a-fA-F\]*) - (0x\[0-9a-fA-F\]*) is .CODE..*$gdb_prompt $"\ + {pass "info files"} + -re "$gdb_prompt $"\ + {fail "info files"} + timeout {fail "(timeout) info files"} +} + +# Reset the section to that same starting address, which should be +# harmless (i.e., we just want to exercise the section command). +# +send_gdb "section \$CODE\$ $expect_out(1,string)\n" +gdb_expect { + -re ".*$expect_out(1,string) \- $expect_out(2,string) is .CODE..*$gdb_prompt $"\ + {pass "set section command"} + -re "$gdb_prompt $"\ + {fail "set section command"} + timeout {fail "(timeout) set section command"} +} + +# Verify that GDB responds gracefully to a non-existent section name. +# +send_gdb "section FOOBARBAZ 0x1234\n" +gdb_expect { + -re "Section FOOBARBAZ not found\r\n$gdb_prompt $"\ + {pass "non-existent section disallowed"} + -re "$gdb_prompt $"\ + {fail "non-existent section disallowed"} + timeout {fail "(timeout) non-existent section disallowed"} +} + +# We "happen to know" that GDB uses a fixed size character buffer to +# parse the section name into, and the buffer is declared to be 100 +# characters in length. Verify that GDB gracefully handles section +# names longer than that. (The section is also non-existent.) +# +send_gdb "section A234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123 0x1234\n" +gdb_expect { + -re "Section A23456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789 not found\r\n$gdb_prompt $"\ + {pass "non-existent too-long section disallowed"} + -re "$gdb_prompt $"\ + {fail "non-existent too-long section disallowed"} + timeout {fail "(timeout) non-existent too-long section disallowed"} +} + +gdb_exit +return 0 diff --git a/gdb/testsuite/gdb.base/section_command.exp b/gdb/testsuite/gdb.base/section_command.exp deleted file mode 100644 index 27bde04452a..00000000000 --- a/gdb/testsuite/gdb.base/section_command.exp +++ /dev/null @@ -1,109 +0,0 @@ -# Copyright (C) 1997, 1998 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 2 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, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ - -# Please email any bugs, comments, and/or additions to this file to: -# bug-gdb@prep.ai.mit.edu - -if $tracelevel then { - strace $tracelevel - } - -global usestubs - -# -# test running programs -# -set prms_id 0 -set bug_id 0 - -# This test exists solely to exercise the "section" command for -# code-coverage on HP-UX. (So far as I can tell, the "section" -# command isn't needed on HP-UX, but probably is for embedded -# apps.) -# -if ![istarget "hppa*-*-hpux*"] then { - return -} - -set testfile "break" -set srcfile ${testfile}.c -set binfile ${objdir}/${subdir}/${testfile} -if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { - gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." -} - -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} - -if ![runto_main] then { fail "section command tests suppressed" } - -# Get the $CODE$ section's starting address. -# -# (Note that this works for PA32 programs, which use the SOM file -# format. PA64 uses ELF, and when support for that is added, it's -# not clear that there'll be a section named "$CODE$" in such -# programs.) -# -send_gdb "info files\n" -gdb_expect { - -re ".*(0x\[0-9a-fA-F\]*) - (0x\[0-9a-fA-F\]*) is .CODE..*$gdb_prompt $"\ - {pass "info files"} - -re "$gdb_prompt $"\ - {fail "info files"} - timeout {fail "(timeout) info files"} -} - -# Reset the section to that same starting address, which should be -# harmless (i.e., we just want to exercise the section command). -# -send_gdb "section \$CODE\$ $expect_out(1,string)\n" -gdb_expect { - -re ".*$expect_out(1,string) \- $expect_out(2,string) is .CODE..*$gdb_prompt $"\ - {pass "set section command"} - -re "$gdb_prompt $"\ - {fail "set section command"} - timeout {fail "(timeout) set section command"} -} - -# Verify that GDB responds gracefully to a non-existent section name. -# -send_gdb "section FOOBARBAZ 0x1234\n" -gdb_expect { - -re "Section FOOBARBAZ not found\r\n$gdb_prompt $"\ - {pass "non-existent section disallowed"} - -re "$gdb_prompt $"\ - {fail "non-existent section disallowed"} - timeout {fail "(timeout) non-existent section disallowed"} -} - -# We "happen to know" that GDB uses a fixed size character buffer to -# parse the section name into, and the buffer is declared to be 100 -# characters in length. Verify that GDB gracefully handles section -# names longer than that. (The section is also non-existent.) -# -send_gdb "section A234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123 0x1234\n" -gdb_expect { - -re "Section A23456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789 not found\r\n$gdb_prompt $"\ - {pass "non-existent too-long section disallowed"} - -re "$gdb_prompt $"\ - {fail "non-existent too-long section disallowed"} - timeout {fail "(timeout) non-existent too-long section disallowed"} -} - -gdb_exit -return 0