| # Copyright 2008 |
| # 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 3 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, see <http://www.gnu.org/licenses/>. |
| |
| # This test is based on gdb.base/attach.exp with modifications by Jeff Johnston |
| # <jjohnstn@redhat.com> and Jan Kratochvil <jan.kratochvil@redhat.com>. |
| |
| # This test only works on Linux |
| if { ![isnative] || [is_remote host] || ![istarget *-linux*] } { |
| continue |
| } |
| |
| set testfile "attachstop-mt" |
| set srcfile ${testfile}.c |
| set binfile ${objdir}/${subdir}/${testfile} |
| set escapedbinfile [string_to_regexp ${objdir}/${subdir}/${testfile}] |
| |
| #execute_anywhere "rm -f ${binfile}" |
| remote_exec build "rm -f ${binfile}" |
| # For debugging this test |
| # |
| #log_user 1 |
| |
| # build the test case |
| # |
| if { [gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { |
| gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." |
| } |
| |
| if [get_compiler_info ${binfile}] { |
| return -1 |
| } |
| |
| # Start the program running and then wait for a bit, to be sure |
| # that it can be attached to. |
| |
| set testpid [eval exec $binfile &] |
| |
| # No race |
| sleep 2 |
| |
| # The testcase has three threads, find some other thread TID for $testpid2. |
| set tids [exec sh -c "echo /proc/$testpid/task/*"] |
| regsub -all /proc/$testpid/task/ $tids {} tids |
| if {$tids == "*"} { |
| unresolved "/proc/PID/task is not supported (kernel-2.4?)" |
| remote_exec build "kill -9 ${testpid}" |
| return -1 |
| } |
| set tids [lsort -integer [split $tids]] |
| if {[llength $tids] != 3 || [lindex $tids 0] != $testpid} { |
| verbose -log "Invalid TIDs <$tids> for PID $testpid" |
| fail "Invalid TIDs found" |
| remote_exec build "kill -9 ${testpid}" |
| return -1 |
| } |
| set testpid2 [lindex $tids 2] |
| |
| # Initial sanity test it is normally sleeping |
| set status2 /proc/${testpid}/task/${testpid2}/status |
| set fileid0 [open $status2 r]; |
| gets $fileid0 line1; |
| gets $fileid0 line2; |
| close $fileid0; |
| |
| set test "attach0, initial sanity check of the sleeping state" |
| if {[string match "*(sleeping)*" $line2]} { |
| pass $test |
| } else { |
| fail $test |
| } |
| |
| # Sttach and detach to test it will not become stopped |
| gdb_start |
| gdb_reinitialize_dir $srcdir/$subdir |
| gdb_load ${binfile} |
| |
| set test "attach0 to sleeping" |
| gdb_test_multiple "attach $testpid" "$test" { |
| -re "Attaching to program.*`?$escapedbinfile'?, process $testpid.*$gdb_prompt $" { |
| pass "$test" |
| } |
| } |
| |
| gdb_test "gcore /dev/null" ".*aved corefile.*" "attach0 to sleeping gcore invocation" |
| |
| gdb_test "thread 2" ".*witching to thread 2 .*" "attach0 to sleeping switch thread" |
| |
| gdb_test "bt" ".*sleep.*func.*" "attach0 to sleeping bt" |
| |
| # Exit and detach the process. |
| |
| gdb_exit |
| |
| # No race |
| sleep 2 |
| |
| # Check it did not get stopped by our gdb |
| set fileid1 [open $status2 r]; |
| gets $fileid1 line1; |
| gets $fileid1 line2; |
| close $fileid1; |
| |
| set test "attach1, post-gdb sanity check of the sleeping state - Red Hat BZ 197584" |
| if {[string match "*(sleeping)*" $line2]} { |
| pass $test |
| } else { |
| fail $test |
| } |
| |
| # Stop the program |
| remote_exec build "kill -s STOP ${testpid}" |
| |
| # No race |
| sleep 2 |
| |
| # Check it really got stopped by kill(1) |
| set fileid2 [open $status2 r]; |
| gets $fileid2 line1; |
| gets $fileid2 line2; |
| close $fileid2; |
| |
| set test "attach2, initial sanity check of the stopped state" |
| if {[string match "*(stopped)*" $line2]} { |
| pass $test |
| } else { |
| fail $test |
| } |
| |
| # Start with clean gdb |
| gdb_start |
| gdb_reinitialize_dir $srcdir/$subdir |
| gdb_load ${binfile} |
| |
| # Verify that we can attach to the process by first giving its |
| # executable name via the file command, and using attach with the |
| # process ID. |
| |
| set test "set file, before attach3 to stopped process" |
| gdb_test_multiple "file $binfile" "$test" { |
| -re "Load new symbol table from.*y or n. $" { |
| gdb_test "y" "Reading symbols from $escapedbinfile\.\.\.*done." \ |
| "$test (re-read)" |
| } |
| -re "Reading symbols from $escapedbinfile\.\.\.*done.*$gdb_prompt $" { |
| pass "$test" |
| } |
| } |
| |
| set test "attach3 to stopped, after setting file" |
| gdb_test_multiple "attach $testpid" "$test" { |
| -re "Attaching to program.*`?$escapedbinfile'?, process $testpid.*$gdb_prompt $" { |
| pass "$test" |
| } |
| } |
| |
| # We may be already after the threads phase. |
| # `thread 2' command is important for the test to switch the current thread to |
| # a non-primary one for the detach process. |
| |
| gdb_test "thread 2" ".*(witching to thread 2 |hread ID 2 not known).*" "attach3 to stopped switch thread" |
| gdb_test "bt" ".*sleep.*(func|main).*" "attach3 to stopped bt" |
| |
| # Exit and detach the process. |
| gdb_exit |
| |
| # Stop the program |
| remote_exec build "kill -s STOP ${testpid}" |
| |
| # No race |
| sleep 2 |
| |
| # Continue the test as we would hit another expected bug regarding |
| # Program received signal SIGSTOP, Stopped (signal). |
| # across NPTL threads. |
| |
| gdb_start |
| gdb_reinitialize_dir $srcdir/$subdir |
| gdb_load ${binfile} |
| |
| # Verify that we can attach to the process just by giving the |
| # process ID. |
| |
| set test "attach4 to stopped, after setting file" |
| gdb_test_multiple "attach $testpid" "$test" { |
| -re "Attaching to program.*`?$escapedbinfile'?, process $testpid.*$gdb_prompt $" { |
| pass "$test" |
| } |
| } |
| |
| # We may be already after the threads phase. |
| # `thread 2' command is important for the test to switch the current thread to |
| # a non-primary one for the detach process. |
| |
| gdb_test "thread 2" ".*(witching to thread 2 |hread ID 2 not known).*" "attach4 to stopped switch thread" |
| gdb_test "bt" ".*sleep.*(func|main).*" "attach4 to stopped bt" |
| |
| # RHEL3U8 kernel-2.4.21-47.EL will not return SIGINT but only shorten the sleep. |
| gdb_breakpoint [gdb_get_line_number "Ridiculous time"] |
| gdb_breakpoint [gdb_get_line_number "cut the sleep time"] |
| set test "attach4 continue" |
| send_gdb "continue\n" |
| gdb_expect { |
| -re "Continuing" |
| { pass "continue ($test)" } |
| timeout |
| { fail "continue ($test) (timeout)" } |
| } |
| |
| # For this to work we must be sure to consume the "Continuing." |
| # message first, or GDB's signal handler may not be in place. |
| after 1000 {send_gdb "\003"} |
| set test "attach4 stop by interrupt" |
| gdb_expect { |
| -re "Program received signal SIGINT.*$gdb_prompt $" |
| { |
| pass $test |
| } |
| -re "Breakpoint \[0-9\].*$srcfile.*$gdb_prompt $" |
| { |
| pass $test |
| } |
| timeout |
| { |
| fail "$test (timeout)" |
| } |
| } |
| |
| gdb_exit |
| |
| # No race |
| sleep 2 |
| |
| # At this point, the process should be sleeping |
| |
| set fileid4 [open $status2 r]; |
| gets $fileid4 line1; |
| gets $fileid4 line2; |
| close $fileid4; |
| |
| set test "attach4, exit leaves process sleeping" |
| if {[string match "*(sleeping)*" $line2]} { |
| pass $test |
| } else { |
| fail $test |
| } |
| |
| # Make sure we don't leave a process around to confuse |
| # the next test run (and prevent the compile by keeping |
| # the text file busy), in case the "set should_exit" didn't |
| # work. |
| |
| remote_exec build "kill -9 ${testpid}" |
| |
| return 0 |