gdb/testsuite/gdb.base/sigall.exp

   1 #   Copyright (C) 1995 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 2 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program; if not, write to the Free Software
  15 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16
  17 if $tracelevel then {
  18         strace $tracelevel
  19 }
  20
  21 set prms_id 0
  22 set bug_id 0
  23
  24 gdb_reinitialize_dir $srcdir/$subdir
  25 set binfile $objdir/$subdir/sigall
  26
  27 if ![file exists $binfile] then {
  28     perror "$binfile does not exist."
  29     return 0
  30 }
  31
  32 # Make the first signal SIGABRT because it is always supported.
  33 set sig_supported 1
  34 set thissig "ABRT"
  35
  36 proc test_one_sig {nextsig} {
  37     global sig_supported
  38     global prompt
  39     global thissig
  40
  41     set this_sig_supported $sig_supported
  42     gdb_test "handle SIG$thissig stop print" \
  43         "SIG$thissig\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes"
  44     gdb_test "b handle_$thissig" "Breakpoint \[0-9\]"
  45     gdb_test "b gen_$nextsig" "Breakpoint \[0-9\]"
  46
  47     set need_another_continue 1
  48     if $this_sig_supported then {
  49         send "continue\n"
  50         expect {
  51             -re "Continuing.*Program received signal SIG$thissig.*$prompt $" {
  52                 pass "get signal $thissig"
  53             }
  54             -re ".*$prompt $" {
  55                 fail "get signal $thissig"
  56                 set need_another_continue 0
  57             }
  58             default {
  59                 fail "get signal $thissig (eof or timeout)"
  60             }
  61         }
  62     }
  63
  64     if $need_another_continue then {
  65         gdb_test "continue" \
  66             "Breakpoint.*handle_$thissig" "send signal $thissig"
  67     }
  68
  69     send "signal 0\n"
  70     expect {
  71         -re "Breakpoint.*gen_$nextsig.*kill.*$prompt $" {
  72             pass "advance to $nextsig"
  73             set sig_supported 1
  74         }
  75         -re "Breakpoint.*gen_$nextsig.*handle.*$prompt $" {
  76             pass "advance to $nextsig"
  77             set sig_supported 0
  78         }
  79         -re ".*$prompt $" { fail "advance to $nextsig" }
  80         default { fail "advance to $nextsig (eof or timeout)" }
  81     }
  82     set thissig $nextsig
  83 }
  84
  85 gdb_load $binfile
  86
  87 runto gen_ABRT
  88 test_one_sig HUP
  89 test_one_sig QUIT
  90 test_one_sig ILL
  91 test_one_sig EMT
  92 test_one_sig FPE
  93 test_one_sig BUS
  94 test_one_sig SEGV
  95 test_one_sig SYS
  96 test_one_sig PIPE
  97 test_one_sig ALRM
  98 test_one_sig URG
  99 test_one_sig TSTP
 100 test_one_sig CONT
 101 test_one_sig CHLD
 102 test_one_sig TTIN
 103 test_one_sig TTOU
 104 test_one_sig IO
 105 test_one_sig XCPU
 106 test_one_sig XFSZ
 107 test_one_sig VTALRM
 108 test_one_sig PROF
 109 test_one_sig WINCH
 110 test_one_sig LOST
 111 test_one_sig USR1
 112 test_one_sig USR2
 113 test_one_sig PWR
 114 test_one_sig POLL
 115 test_one_sig WIND
 116 test_one_sig PHONE
 117 test_one_sig WAITING
 118 test_one_sig LWP
 119 test_one_sig DANGER
 120 test_one_sig GRANT
 121 test_one_sig RETRACT
 122 test_one_sig MSG
 123 test_one_sig SOUND
 124 test_one_sig SAK
 125 test_one_sig PRIO
 126 test_one_sig 33
 127 test_one_sig 34
 128 test_one_sig 35
 129 test_one_sig 36
 130 test_one_sig 37
 131 test_one_sig 38
 132 test_one_sig 39
 133 test_one_sig 40
 134 test_one_sig 41
 135 test_one_sig 42
 136 test_one_sig 43
 137 test_one_sig 44
 138 test_one_sig 45
 139 test_one_sig 46
 140 test_one_sig 47
 141 test_one_sig 48
 142 test_one_sig 49
 143 test_one_sig 50
 144 test_one_sig 51
 145 test_one_sig 52
 146 test_one_sig 53
 147 test_one_sig 54
 148 test_one_sig 55
 149 test_one_sig 56
 150 test_one_sig 57
 151 test_one_sig 58
 152 test_one_sig 59
 153 test_one_sig 60
 154 test_one_sig 61
 155 test_one_sig 62
 156 test_one_sig 63
 157 test_one_sig TERM
 158
 159 # The last signal (SIGTERM) gets handled slightly differently because
 160 # we are not setting up for another test.
 161 gdb_test "handle SIGTERM stop print" \
 162     "SIGTERM\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes"
 163 gdb_test "b handle_TERM" "Breakpoint \[0-9\]"
 164 gdb_test "continue" \
 165     "Continuing.*Program received signal SIGTERM" \
 166     "get signal TERM"
 167 gdb_test "continue" "Breakpoint.*handle_TERM" "send signal TERM"
 168 gdb_test "continue" "Program exited normally" "continue to sigall exit"
 169
 170 return 0