diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/interrupt.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/interrupt.exp | 167 |
1 files changed, 0 insertions, 167 deletions
diff --git a/gdb/testsuite/gdb.base/interrupt.exp b/gdb/testsuite/gdb.base/interrupt.exp deleted file mode 100644 index 2985870..0000000 --- a/gdb/testsuite/gdb.base/interrupt.exp +++ /dev/null @@ -1,167 +0,0 @@ -# Copyright (C) 1994, 1995 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 $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}] != "" } { - perror "Couldn't compile ${srcfile}" - return -1 -} - -if [target_info exists gdb,noinferiorio] { - verbose "Skipping interrupt.exp because of noinferiorio." - return -} - -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" - 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" - 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 - - send_gdb "\003" - 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" - 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 "*-*-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 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). - 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. - 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" - 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 |