Dmitry V. Levin
74697bd29b
* tests/detach-running.test: Skip if "kill -0" does not work. * tests/detach-sleeping.test: Likewise. * tests/detach-stopped.test: Likewise.
63 lines
1.1 KiB
Bash
Executable File
63 lines
1.1 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
# Ensure that strace can detach from sleeping processes.
|
|
|
|
. "${srcdir=.}/init.sh"
|
|
|
|
kill -0 $$ ||
|
|
framework_skip_ 'kill -0 does not work'
|
|
|
|
check_prog grep
|
|
check_prog sleep
|
|
|
|
set -e
|
|
|
|
rm -f $LOG
|
|
./set_ptracer_any sleep $((2*$TIMEOUT_DURATION)) > $LOG &
|
|
|
|
while ! [ -s $LOG ]; do
|
|
kill -0 $! 2> /dev/null ||
|
|
fail_ 'set_ptracer_any sleep failed'
|
|
$SLEEP_A_BIT
|
|
done
|
|
|
|
tracee_pid=$!
|
|
|
|
cleanup()
|
|
{
|
|
set +e
|
|
kill $tracee_pid
|
|
wait $tracee_pid 2> /dev/null
|
|
return 0
|
|
}
|
|
|
|
rm -f $LOG
|
|
$STRACE -p $tracee_pid 2> $LOG &
|
|
|
|
while ! grep -F "Process $tracee_pid attached" $LOG > /dev/null; do
|
|
kill -0 $! 2> /dev/null ||
|
|
{ cat $LOG; cleanup; fail_ 'strace -p does not work'; }
|
|
$SLEEP_A_BIT
|
|
done
|
|
|
|
kill -INT $!
|
|
wait $!
|
|
|
|
grep -F "Process $tracee_pid detached" $LOG > /dev/null ||
|
|
{ cat $LOG; cleanup; fail_ 'strace -p failed to detach'; }
|
|
|
|
if [ -f /proc/self/status ]; then
|
|
$SLEEP_A_BIT
|
|
test -d /proc/$tracee_pid ||
|
|
{ cat $LOG; cleanup; fail_ 'tracee died after detach'; }
|
|
grep '^State:.*S (sleeping)' < /proc/$tracee_pid/status > /dev/null || {
|
|
cat $LOG
|
|
grep '^State:' < /proc/$tracee_pid/status
|
|
cleanup
|
|
fail_ 'tracee is not sleeping after detach'
|
|
}
|
|
fi
|
|
|
|
cleanup
|
|
exit 0
|