diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/interrupt.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/interrupt.exp | 175 |
1 files changed, 175 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.base/interrupt.exp b/gdb/testsuite/gdb.base/interrupt.exp new file mode 100644 index 00000000000..60cf83817cb --- /dev/null +++ b/gdb/testsuite/gdb.base/interrupt.exp @@ -0,0 +1,175 @@ +# Copyright (C) 1994, 1995, 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 [host_info exists name] { + if [board_info host exists gdb,nointerrupts] { + verbose "Skipping interrupt.exp because of nointerrupts." + continue + } +} + +if [target_info exists gdb,noinferiorio] { + verbose "Skipping interrupt.exp because of noinferiorio." + return +} + +if $tracelevel then { + strace $tracelevel +} + +set prms_id 0 +set bug_id 0 + +set testfile interrupt +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_start + + +if ![file exists $binfile] then { + perror "$binfile does not exist." + return 0 +} else { + gdb_reinitialize_dir $srcdir/$subdir + gdb_load $binfile + # Hope this is unix :-) + gdb_test "shell stty intr '^C'" "" \ + "set interrupt character in interrupt.exp" + if [runto_main] then { + send_gdb "continue\n" + gdb_expect { + -re "\r\ntalk to me baby\r\n$" { + pass "child process is alive" + } + timeout { fail "run (timeout)" } + eof { fail "run (eof)" } + } + # This should appear twice, once for the echo and once for the + # program's output. Under dejagnu (but not interactively) for + # SunOS4, it only appears once. Don't worry about it, I imagine + # dejagnu has just done something to the tty modes. + send_gdb "a\n" + gdb_expect { + -re "^a\r\n(|a\r\n)$" { + pass "child process ate our char" + } + timeout { fail "echo a (timeout)" } + eof { fail "echo a (eof)" } + } + # Wait until the program is in the read system call again. + sleep 2 + + # Cntrl-c may fail for simulator targets running on a BSD host. + # This is the result of a combination of the read syscall + # being restarted and gdb capturing the cntrl-c signal. + + # Cntrl-c may fail for simulator targets on slow hosts. + # This is because there is a race condition between entering + # the read and delivering the cntrl-c. + + send_gdb "\003" + gdb_expect { + -re "Program received signal SIGINT.*$gdb_prompt $" { + pass "send_gdb control C" + } + -re ".*$gdb_prompt $" { fail "send_gdb control C" } + timeout { fail "send_gdb control C (timeout)" } + eof { fail "send_gdb control C (eof)" } + } + + send_gdb "p func1 ()\n" + gdb_expect { + -re " = 4.*$gdb_prompt $" { pass "call function when asleep" } + -re ".*Program received signal SIGSEGV.*$gdb_prompt $" { + setup_xfail "i*86-pc-linux*-gnu*" + fail "child died when we called func1, skipped rest of tests" + return + } + -re "$gdb_prompt $" { fail "call function when asleep (wrong output)" } + default { + + # This fail probably happens whenever we use /proc (we + # don't use PRSABORT), but apparently also happens on + # other machines as well. + + setup_xfail "sparc*-*-solaris2*" + setup_xfail "mips-*-ultrix*" + setup_xfail "hppa*-*-*" + setup_xfail "i386*-*-bsd*" + setup_xfail "i*86-*-solaris2*" + setup_xfail "*-*-sysv4*" + setup_xfail "vax-*-*" + setup_xfail "alpha-*-*" + setup_xfail "*-*-irix*" + setup_xfail "*-*-hpux*" + setup_xfail "*-*-*lynx*" + fail "call function when asleep (stays asleep)" + # Send_Gdb a newline to wake it up + send_gdb "\n" + gdb_test "" " = 4" "call function after waking it" + } +# eof { fail "call function when asleep (eof)" } + } + + # Now try calling the function again. + gdb_test "p func1 ()" " = 4" "call function a second time" + + # And the program should still be doing the same thing. + # The optional trailing \r\n is in case we sent a newline above + # to wake the program, in which case the program now sends it + # back. We check for it either here or in the next gdb_expect + # command, because which one it ends up in is timing dependent. + send_gdb "continue\n" + # For some reason, i386-*-sysv4 gdb fails to issue the Continuing + # message, but otherwise appears normal (FIXME). + gdb_expect { + -re "^continue\r\nContinuing.\r\n(\r\n|)$" { pass "continue" } + -re "^continue\r\n\r\n" { fail "continue (missing Continuing.)" } + -re "$gdb_prompt $" { fail "continue" } + timeout { fail "continue (timeout)" } + eof { fail "continue (eof)" } + } + + send_gdb "data\n" + # The optional leading \r\n is in case we sent a newline above + # to wake the program, in which case the program now sends it + # back. + gdb_expect { + -re "^(\r\n|)data\r\n(|data\r\n)$" { pass "echo data" } + timeout { fail "echo data (timeout)" } + eof { fail "echo data (eof)" } + } + + setup_xfail "i*86-pc-linux*-gnu*" + send_gdb "\004" + gdb_expect { + -re "end of file.*Program exited normally.*$gdb_prompt $" { + pass "send_gdb end of file" + } + -re "$gdb_prompt $" { fail "send end of file" } + timeout { fail "send end of file (timeout)" } + eof { fail "send end of file (eof)" } + } + } +} +return 0 |