gdb/testsuite/gdb.threads/attach-into-signal.exp

   1 # Copyright 2008-2015 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 3 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, see <http://www.gnu.org/licenses/>.
  15
  16 # This test was created by modifying attach-stopped.exp.
  17 # This file was created by Jan Kratochvil <jan.kratochvil@redhat.com>.
  18
  19 # This test only works on Linux
  20 if { ![isnative] || [is_remote host] || [target_info exists use_gdb_stub]
  21      || ![istarget *-linux*] } {
  22     continue
  23 }
  24
  25 standard_testfile
  26 set executable_nothr ${testfile}-nothr
  27 set executable_thr ${testfile}-thr
  28
  29 proc corefunc { threadtype executable } {
  30     global srcfile
  31     global srcdir
  32     global subdir
  33     global gdb_prompt
  34
  35     with_test_prefix "$threadtype" {
  36         clean_restart ${executable}
  37
  38         set binfile [standard_output_file $executable]
  39         set escapedbinfile [string_to_regexp ${binfile}]
  40
  41         if [get_compiler_info] {
  42             return -1
  43         }
  44
  45         gdb_test "handle SIGALRM stop print pass" "Yes.*Yes.*Yes.*"
  46
  47         set test_spawn_id [spawn_wait_for_attach $binfile]
  48         set testpid [spawn_id_get_pid $test_spawn_id]
  49
  50         # Run 2 passes of the test.
  51         # The C file inferior stops pending its signals if a single one is lost,
  52         # we test successful redelivery of the caught signal by the 2nd pass.
  53
  54         # linux-2.6.20.4.x86_64 had maximal attempt # 20 in 4 test runs.
  55         set attempts 100
  56         set attempt 1
  57         set passes 1
  58         while { $passes < 3 && $attempt <= $attempts } {
  59             with_test_prefix "attempt $attempt" {
  60                 set stoppedtry 0
  61                 while { $stoppedtry < 10 } {
  62                     with_test_prefix "stoppedtry $stoppedtry" {
  63                         if [catch {open /proc/${testpid}/status r} fileid] {
  64                             set stoppedtry 10
  65                             break
  66                         }
  67                         gets $fileid line1
  68                         gets $fileid line2
  69                         close $fileid
  70
  71                         if {![string match "*(stopped)*" $line2]} {
  72                             # No PASS message as we may be looping in multiple
  73                             # attempts.
  74                             break
  75                         }
  76                         sleep 1
  77                         set stoppedtry [expr $stoppedtry + 1]
  78                     }
  79                 }
  80                 if { $stoppedtry >= 10 } {
  81                     verbose -log $line2
  82                     set test "process is still running on the attempt # $attempt of $attempts"
  83                     break
  84                 }
  85
  86                 # Main test:
  87                 set test "attach (pass $passes), pending signal catch"
  88                 if {[gdb_test_multiple "attach $testpid" $test {
  89                     -re "Attaching to program.*`?$escapedbinfile'?, process $testpid.*Program received signal SIGALRM.*$gdb_prompt $" {
  90                         # nonthreaded:
  91                         pass $test
  92                         verbose -log "$test succeeded on the attempt # $attempt of $attempts"
  93                         set passes [expr $passes + 1]
  94                     }
  95                     -re "Attaching to program.*`?$escapedbinfile'?, process $testpid.*$gdb_prompt $" {
  96                         set ok 0
  97
  98                         if { $threadtype == "threaded" } {
  99                             # In the threaded case, the signal is left
 100                             # pending on the second thread.  Check for
 101                             # that by peeking at the thread's siginfo.
 102                             # SIGALRM is 14, SIGSTOP is 19.
 103
 104                             set test2 "thread apply 2 print \$_siginfo.si_signo"
 105                             gdb_test_multiple $test2 $test2 {
 106                                 -re " = 14\r\n$gdb_prompt $" {
 107                                     set ok 1
 108                                 }
 109                                 -re " = 19\r\n$gdb_prompt $" {
 110                                 }
 111                             }
 112                         } else {
 113                             # In the nonthreaded case, GDB should tell the
 114                             # user about having seen a signal.
 115                         }
 116
 117                         if { $ok == 0} {
 118                             # We just lack the luck, we should try it again.
 119                             set attempt [expr $attempt + 1]
 120                         } else {
 121                             pass $test
 122                             verbose -log "$test succeeded on the attempt # $attempt of $attempts"
 123                             set passes [expr $passes + 1]
 124                         }
 125                     }
 126                 }] != 0 } {
 127                     break
 128                 }
 129
 130                 gdb_test "detach" "Detaching from.*" ""
 131             }
 132         }
 133
 134         if {$passes < 3} {
 135             if {$attempt > $attempts} {
 136                 unresolved $test
 137             } else {
 138                 fail $test
 139             }
 140         }
 141
 142         # Exit and detach the process.
 143         gdb_exit
 144
 145         # Continue the program - some Linux kernels need it before -9 if the
 146         # process is stopped.
 147         remote_exec build "kill -s CONT ${testpid}"
 148
 149         kill_wait_spawned_process $test_spawn_id
 150     }
 151 }
 152
 153 # build the test case first without threads
 154 #
 155 if {[build_executable $testfile $executable_nothr $srcfile] == -1} {
 156     untested "attach-into-signal.exp (nonthreaded)"
 157     return -1
 158 }
 159
 160 corefunc nonthreaded ${executable_nothr}
 161
 162 # build the test case also with threads
 163 #
 164 if  { [gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" [standard_output_file ${executable_thr}] executable {debug additional_flags=-DUSE_THREADS}] != "" } {
 165     untested "attach-into-signal.exp (threaded)"
 166     return -1
 167 }
 168
 169 corefunc threaded ${executable_thr}