mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-02-25 08:26:31 +00:00
712261c89b
This reduces a bunch more unnecessarily long sleeps to give
asynchronous processes time to run, etc. (No, we don't need to be
compatible anymore with your cool 1985 Intel 80386DX 16 MHz
battlestation...) Running the test suite is almost tolerable now,
making me much more likely to actually run the regression test
suite and catch my own regressions.
In addition, there are various fixes to make the test suite
compatible with 'set -x' ('set -o xtrace') so that you can now
actually *use* the documented 'bin/shtests -x' option. Recommend
combining with '-p' to avoid tracing everything three times.
I've also added a really useful $PS4 trace prompt to shtests that
traces pretty much everything there is to trace. (It does use
expansions that modify ${.sh.match}, which affected several tests,
particularly in tests/substring.sh; for those we need to set a
temporary simpler $PS4.)
(cherry picked from commit c3a5d47cfe880b526cabb5370ddaced0e8626acd)
167 lines
4.9 KiB
Bash
Executable file
167 lines
4.9 KiB
Bash
Executable file
########################################################################
|
|
# #
|
|
# This software is part of the ast package #
|
|
# Copyright (c) 1982-2012 AT&T Intellectual Property #
|
|
# and is licensed under the #
|
|
# Eclipse Public License, Version 1.0 #
|
|
# by AT&T Intellectual Property #
|
|
# #
|
|
# A copy of the License is available at #
|
|
# http://www.eclipse.org/org/documents/epl-v10.html #
|
|
# (with md5 checksum b35adb5213ca9657e911e9befb180842) #
|
|
# #
|
|
# Information and Software Systems Research #
|
|
# AT&T Research #
|
|
# Florham Park NJ #
|
|
# #
|
|
# David Korn <dgk@research.att.com> #
|
|
# #
|
|
########################################################################
|
|
function err_exit
|
|
{
|
|
print -u2 -n "\t"
|
|
print -u2 -r ${Command}[$1]: "${@:2}"
|
|
(( Errors+=1 ))
|
|
}
|
|
|
|
alias err_exit='err_exit $LINENO'
|
|
|
|
float DELAY=${1:-0.02}
|
|
integer FOREGROUND=10 BACKGROUND=2 Errors=0
|
|
|
|
tmp=$(
|
|
d=${TMPDIR:-/tmp}/ksh93.sigchld.$$.${RANDOM:-0}
|
|
mkdir -m700 -- "$d" && CDPATH= cd -P -- "$d" && pwd
|
|
) || {
|
|
err_exit 'mkdir failed'
|
|
exit 1
|
|
}
|
|
trap 'cd / && rm -rf "$tmp"' EXIT
|
|
|
|
s=$($SHELL -c '
|
|
integer i foreground=0 background=0
|
|
float delay='$DELAY' d=0 s=0
|
|
|
|
set --errexit
|
|
|
|
trap "(( background++ ))" CHLD
|
|
|
|
(( d = delay ))
|
|
for ((i = 0; i < '$BACKGROUND'; i++))
|
|
do sleep $d &
|
|
(( d *= 4 ))
|
|
(( s += d ))
|
|
done
|
|
for ((i = 0; i < '$FOREGROUND'; i++))
|
|
do (( foreground++ ))
|
|
sleep $delay
|
|
(( s -= delay ))
|
|
$SHELL -c : > /dev/null # foreground does not generate SIGCHLD
|
|
done
|
|
if (( (s += delay) < 1 ))
|
|
then (( s = 1 ))
|
|
fi
|
|
sleep $s
|
|
wait
|
|
print foreground=$foreground background=$background
|
|
') || err_exit "test loop failed"
|
|
|
|
eval $s
|
|
|
|
(( foreground == FOREGROUND )) || err_exit "expected '$FOREGROUND foreground' -- got '$foreground' (DELAY=$DELAY)"
|
|
(( background == BACKGROUND )) || err_exit "expected '$BACKGROUND background' -- got '$background' (DELAY=$DELAY)"
|
|
|
|
set --noerrexit
|
|
|
|
if [[ ${.sh.version} == Version?*([[:upper:]])J* ]]
|
|
then
|
|
|
|
jobmax=4
|
|
got=$($SHELL -c '
|
|
JOBMAX='$jobmax' JOBCOUNT=$(('$jobmax'*2))
|
|
integer running=0 maxrunning=0
|
|
trap "((running--))" CHLD
|
|
for ((i=0; i<JOBCOUNT; i++))
|
|
do sleep .1 &
|
|
if ((++running > maxrunning))
|
|
then ((maxrunning=running))
|
|
fi
|
|
done
|
|
wait
|
|
print running=$running maxrunning=$maxrunning
|
|
')
|
|
exp='running=0 maxrunning='$jobmax
|
|
[[ $got == $exp ]] || err_exit "SIGCHLD trap queueing failed -- expected '$exp', got '$got'"
|
|
|
|
got=$($SHELL -c '
|
|
typeset -A proc
|
|
|
|
trap "
|
|
print \${proc[\$!].name} \${proc[\$!].status} \$?
|
|
unset proc[\$!]
|
|
" CHLD
|
|
|
|
{ sleep .3; print a; exit 1; } &
|
|
proc[$!]=( name=a status=1 )
|
|
|
|
{ sleep .2; print b; exit 2; } &
|
|
proc[$!]=( name=b status=2 )
|
|
|
|
{ sleep .1; print c; exit 3; } &
|
|
proc[$!]=( name=c status=3 )
|
|
|
|
while (( ${#proc[@]} ))
|
|
do sleep -s
|
|
done
|
|
')
|
|
exp='c\nc 3 3\nb\nb 2 2\na\na 1 1'
|
|
[[ $got == $exp ]] || err_exit "SIGCHLD trap queueing failed -- expected $(printf %q "$exp"), got $(printf %q "$got")"
|
|
|
|
fi
|
|
|
|
{
|
|
got=$( ( sleep .1;print $'\n') | $SHELL -c 'function handler { : ;}
|
|
trap handler CHLD; sleep .03 & IFS= read; print good')
|
|
} 2> /dev/null
|
|
[[ $got == good ]] || err_exit 'SIGCLD handler effects read behavior'
|
|
|
|
set -- $(
|
|
(
|
|
$SHELL -xc $'
|
|
trap \'wait $!; print $! $?\' CHLD
|
|
{ sleep 0.01; exit 9; } &
|
|
print $!
|
|
sleep 0.05
|
|
'
|
|
) 2>/dev/null; print $?
|
|
)
|
|
if (( $# != 4 ))
|
|
then err_exit "CHLD trap failed -- expected 4 args, got $#"
|
|
elif (( $4 != 0 ))
|
|
then err_exit "CHLD trap failed -- exit code $4"
|
|
elif (( $1 != $2 ))
|
|
then err_exit "child pid mismatch -- got '$1' != '$2'"
|
|
elif (( $3 != 9 ))
|
|
then err_exit "child status mismatch -- expected '9', got '$3'"
|
|
fi
|
|
|
|
trap '' CHLD
|
|
integer d
|
|
for ((d=0; d < 2000; d++))
|
|
do if print foo | grep bar
|
|
then break
|
|
fi
|
|
done
|
|
(( d==2000 )) || err_exit "trap '' CHLD causes side effects d=$d"
|
|
trap - CHLD
|
|
|
|
x=$($SHELL 2> /dev/null -ic '/dev/null/notfound; sleep .05 & sleep .1;jobs')
|
|
[[ $x == *Done* ]] || err_exit 'SIGCHLD blocked after notfound'
|
|
x=$($SHELL 2> /dev/null -ic 'kill -0 12345678901234567876; sleep .05 & sleep .1;jobs')
|
|
[[ $x == *Done* ]] || err_exit 'SIGCHLD blocked after error message'
|
|
print 'set -o monitor;sleep .05 & sleep .1;jobs' > $tmp/foobar
|
|
chmod +x $tmp/foobar
|
|
x=$($SHELL -c "echo | $tmp/foobar")
|
|
[[ $x == *Done* ]] || err_exit 'SIGCHLD blocked for script at end of pipeline'
|
|
|
|
exit $((Errors<125?Errors:125))
|