mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-12-29 16:25:35 +01:00
9649ef5888
Should trigger on non-zero status at end of function even if behaviour is suppressed by code inside the function at the point the status is set.
761 lines
15 KiB
Text
761 lines
15 KiB
Text
# Tests for both trap builtin and TRAP* functions.
|
|
|
|
%prep
|
|
|
|
setopt localtraps
|
|
mkdir traps.tmp && cd traps.tmp
|
|
|
|
%test
|
|
|
|
fn1() {
|
|
trap 'print EXIT1' EXIT
|
|
fn2() { trap 'print EXIT2' EXIT; }
|
|
fn2
|
|
}
|
|
fn1
|
|
0:Nested `trap ... EXIT'
|
|
>EXIT2
|
|
>EXIT1
|
|
|
|
fn1() {
|
|
TRAPEXIT() { print EXIT1; }
|
|
fn2() { TRAPEXIT() { print EXIT2; }; }
|
|
fn2
|
|
}
|
|
fn1
|
|
0: Nested TRAPEXIT
|
|
>EXIT2
|
|
>EXIT1
|
|
|
|
fn1() {
|
|
trap 'print EXIT1' EXIT
|
|
fn2() { trap - EXIT; }
|
|
fn2
|
|
}
|
|
fn1
|
|
0:Nested `trap - EXIT' on `trap ... EXIT'
|
|
>EXIT1
|
|
|
|
fn1() {
|
|
TRAPEXIT() { print EXIT1; }
|
|
fn2() { trap - EXIT; }
|
|
fn2
|
|
}
|
|
fn1
|
|
0:Nested `trap - EXIT' on `TRAPEXIT'
|
|
>EXIT1
|
|
|
|
# We can't test an EXIT trap for the shell as a whole, because
|
|
# we're inside a function scope which we don't leave when the
|
|
# subshell exits. Not sure if that's the correct behaviour, but
|
|
# it's sort of consistent.
|
|
( fn1() { trap 'print Function 1 going' EXIT; exit; print Not reached; }
|
|
fn2() { trap 'print Function 2 going' EXIT; fn1; print Not reached; }
|
|
fn2
|
|
)
|
|
0:EXIT traps on functions when exiting from function
|
|
>Function 1 going
|
|
>Function 2 going
|
|
|
|
# $ZTST_exe is relative to the parent directory.
|
|
# We ought to fix this in ztst.zsh...
|
|
(cd ..
|
|
$ZTST_exe -fc 'TRAPEXIT() { print Exited.; }')
|
|
0:EXIT traps on a script
|
|
>Exited.
|
|
|
|
trap -
|
|
trap
|
|
trap int INT
|
|
trap sigterm SIGTERM
|
|
trap quit 3
|
|
trap
|
|
0: Outputting traps correctly
|
|
>trap -- int INT
|
|
>trap -- quit QUIT
|
|
>trap -- sigterm TERM
|
|
|
|
fn1() {
|
|
trap -
|
|
trap
|
|
trap 'print INT1' INT
|
|
fn2() { trap 'print INT2' INT; trap; }
|
|
trap
|
|
fn2
|
|
trap
|
|
}
|
|
fn1
|
|
0: Nested `trap ... INT', not triggered
|
|
>trap -- 'print INT1' INT
|
|
>trap -- 'print INT2' INT
|
|
>trap -- 'print INT1' INT
|
|
|
|
fn1() {
|
|
trap -
|
|
trap
|
|
TRAPINT() { print INT1; }
|
|
fn2() { TRAPINT() { print INT2; }; trap; }
|
|
trap
|
|
fn2
|
|
trap
|
|
}
|
|
fn1
|
|
0: Nested TRAPINT, not triggered
|
|
>TRAPINT () {
|
|
> print INT1
|
|
>}
|
|
>TRAPINT () {
|
|
> print INT2
|
|
>}
|
|
>TRAPINT () {
|
|
> print INT1
|
|
>}
|
|
|
|
fn1() {
|
|
trap -
|
|
trap 'print INT1' INT
|
|
fn2() { trap - INT; trap; }
|
|
trap
|
|
fn2
|
|
trap
|
|
}
|
|
fn1
|
|
0: Nested `trap - INT' on untriggered `trap ... INT'
|
|
>trap -- 'print INT1' INT
|
|
>trap -- 'print INT1' INT
|
|
|
|
# Testing the triggering of traps here is very unpleasant.
|
|
# The delays are attempts to avoid race conditions, though there is
|
|
# no guarantee that they will work. Note the subtlety that the
|
|
# `sleep' in the function which receives the trap does *not* get the
|
|
# signal, only the parent shell, which is waiting for a SIGCHILD.
|
|
# (At least, that's what I think is happening.) Thus we have to wait at
|
|
# least the full two seconds to make sure we have got the output from the
|
|
# execution of the trap.
|
|
|
|
print -u $ZTST_fd 'This test takes at least three seconds...'
|
|
fn1() {
|
|
trap 'print TERM1' TERM
|
|
fn2() { trap 'print TERM2; return 1' TERM; sleep 2; }
|
|
fn2 &
|
|
sleep 1
|
|
kill -TERM $!
|
|
sleep 2
|
|
}
|
|
fn1
|
|
0: Nested `trap ... TERM', triggered on inner loop
|
|
>TERM2
|
|
|
|
print -u $ZTST_fd 'This test, too, takes at least three seconds...'
|
|
fn1() {
|
|
trap 'print TERM1; return 1' TERM
|
|
fn2() { trap 'print TERM2; return 1' TERM; }
|
|
fn2
|
|
sleep 2
|
|
}
|
|
fn1 &
|
|
sleep 1
|
|
kill -TERM $!
|
|
sleep 2
|
|
0: Nested `trap ... TERM', triggered on outer loop
|
|
>TERM1
|
|
|
|
TRAPZERR() { print error activated; }
|
|
fn() { print start of fn; false; print end of fn; }
|
|
fn
|
|
fn() {
|
|
setopt localoptions localtraps
|
|
unfunction TRAPZERR
|
|
print start of fn
|
|
false
|
|
print end of fn
|
|
}
|
|
fn
|
|
unfunction TRAPZERR
|
|
print finish
|
|
0: basic localtraps handling
|
|
>start of fn
|
|
>error activated
|
|
>end of fn
|
|
>start of fn
|
|
>end of fn
|
|
>finish
|
|
|
|
TRAPZERR() { print 'ERR-or!'; }
|
|
f() { print f; false; }
|
|
t() { print t; }
|
|
f
|
|
f && t
|
|
t && f && true
|
|
t && f
|
|
testunset() {
|
|
setopt localtraps
|
|
unset -f TRAPZERR
|
|
print testunset
|
|
false
|
|
true
|
|
}
|
|
testunset
|
|
f
|
|
print status $?
|
|
unfunction TRAPZERR
|
|
0: more sophisticated error trapping
|
|
>f
|
|
>ERR-or!
|
|
>f
|
|
>t
|
|
>f
|
|
>t
|
|
>f
|
|
>ERR-or!
|
|
>testunset
|
|
>f
|
|
>ERR-or!
|
|
>status 1
|
|
|
|
f() {
|
|
setopt localtraps
|
|
TRAPWINCH() { print "Window changed. That wrecked the test."; }
|
|
}
|
|
f
|
|
f
|
|
functions TRAPWINCH
|
|
1:Unsetting ordinary traps with localtraps.
|
|
|
|
#
|
|
# Returns from within traps are a perennial problem.
|
|
# The following two apply to returns in and around standard
|
|
# ksh-style traps. The intention is that a return value from
|
|
# within the function is preserved (i.e. statuses set by the trap
|
|
# are ignored) unless the trap explicitly executes `return', which makes
|
|
# it return from the enclosing function.
|
|
#
|
|
fn() { trap 'true' EXIT; return 1; }
|
|
fn
|
|
1: ksh-style EXIT traps preserve return value
|
|
|
|
inner() { trap 'return 3' EXIT; return 2; }
|
|
outer() { inner; return 1; }
|
|
outer
|
|
3: ksh-style EXIT traps can force return status of enclosing function
|
|
|
|
# Autoloaded traps are horrid, but unfortunately people expect
|
|
# them to work if we support them.
|
|
echo "print Running exit trap" >TRAPEXIT
|
|
${${ZTST_exe##[^/]*}:-$ZTST_testdir/$ZTST_exe} -fc '
|
|
fpath=(. $fpath)
|
|
autoload TRAPEXIT
|
|
print "Exiting, attempt 1"
|
|
exit
|
|
print "What?"
|
|
'
|
|
${${ZTST_exe##[^/]*}:-$ZTST_testdir/$ZTST_exe} -fc '
|
|
fpath=(. $fpath)
|
|
autoload TRAPEXIT;
|
|
fn() { print Some function }
|
|
fn
|
|
print "Exiting, attempt 2"
|
|
exit
|
|
'
|
|
0: autoloaded TRAPEXIT (exit status > 128 indicates an old bug is back)
|
|
>Exiting, attempt 1
|
|
>Running exit trap
|
|
>Some function
|
|
>Exiting, attempt 2
|
|
>Running exit trap
|
|
|
|
print -u $ZTST_fd Another test that takes three seconds
|
|
gotsig=0
|
|
signal_handler() {
|
|
echo "parent received signal"
|
|
gotsig=1
|
|
}
|
|
child() {
|
|
sleep 1
|
|
echo "child sending signal"
|
|
kill -15 $parentpid
|
|
sleep 2
|
|
echo "child exiting"
|
|
exit 33
|
|
}
|
|
parentpid=$$
|
|
child &
|
|
childpid=$!
|
|
trap signal_handler 15
|
|
echo "parent waiting"
|
|
wait $childpid
|
|
cstatus=$?
|
|
echo "wait #1 finished, gotsig=$gotsig, status=$cstatus"
|
|
gotsig=0
|
|
wait $childpid
|
|
cstatus=$?
|
|
echo "wait #2 finished, gotsig=$gotsig, status=$cstatus"
|
|
0:waiting for trapped signal
|
|
>parent waiting
|
|
>child sending signal
|
|
>parent received signal
|
|
>wait #1 finished, gotsig=1, status=143
|
|
>child exiting
|
|
>wait #2 finished, gotsig=0, status=33
|
|
|
|
fn1() {
|
|
setopt errexit
|
|
trap 'echo error1' ZERR
|
|
false
|
|
print Shouldn\'t get here 1a
|
|
}
|
|
fn2() {
|
|
setopt errexit
|
|
trap 'echo error2' ZERR
|
|
return 1
|
|
print Shouldn\'t get here 2a
|
|
}
|
|
fn3() {
|
|
setopt errexit
|
|
TRAPZERR() { echo error3; }
|
|
false
|
|
print Shouldn\'t get here 3a
|
|
}
|
|
fn4() {
|
|
setopt errexit
|
|
TRAPZERR() { echo error4; }
|
|
return 1
|
|
print Shouldn\'t get here 4a
|
|
}
|
|
(fn1; print Shouldn\'t get here 1b)
|
|
(fn2; print Shouldn\'t get here 2b)
|
|
(fn3; print Shouldn\'t get here 3b)
|
|
(fn4; print Shouldn\'t get here 4b)
|
|
1: Combination of ERR_EXIT and ZERR trap
|
|
>error1
|
|
>error2
|
|
>error3
|
|
>error4
|
|
|
|
fn1() { TRAPZERR() { print trap; return 42; }; false; print Broken; }
|
|
(fn1)
|
|
print Working $?
|
|
0: Force return of containing function from TRAPZERR.
|
|
>trap
|
|
>Working 42
|
|
|
|
fn2() { trap 'print trap; return 42' ZERR; false; print Broken }
|
|
(fn2)
|
|
print Working $?
|
|
0: Return with non-zero status triggered from within trap '...' ZERR.
|
|
>trap
|
|
>Working 42
|
|
|
|
fn3() { TRAPZERR() { print trap; return 0; }; false; print OK this time; }
|
|
(fn3)
|
|
print Working $?
|
|
0: Normal return from TRAPZERR.
|
|
>trap
|
|
>OK this time
|
|
>Working 0
|
|
|
|
fn4() { trap 'print trap; return 0' ZERR; false; print Broken; }
|
|
(fn4)
|
|
print Working $?
|
|
0: Return with zero status triggered from within trap '...' ZERR.
|
|
>trap
|
|
>Working 0
|
|
|
|
{ trap 'echo This subshell is exiting' EXIT; } | cat
|
|
0: EXIT trap set in current shell at left of pipeline
|
|
>This subshell is exiting
|
|
|
|
( trap 'echo This subshell is also exiting' EXIT; ) | cat
|
|
0: EXIT trap set in subshell at left of pipeline
|
|
>This subshell is also exiting
|
|
|
|
( trap 'echo Should only appear once at the end' EXIT
|
|
( : trap reset here ) | cat
|
|
: trap not reset but not part of shell command list | cat
|
|
echo nothing after this should appear $( : trap reset here too)
|
|
)
|
|
0: EXIT trap set in subshell reset in subsubshell
|
|
>nothing after this should appear
|
|
>Should only appear once at the end
|
|
|
|
echo $( trap 'echo command substitution exited' EXIT )
|
|
0: EXIT trap set in command substitution
|
|
>command substitution exited
|
|
|
|
(cd ..; $ZTST_exe -fc 'setopt posixtraps;
|
|
TRAPEXIT() { print Exited; }
|
|
fn1() { trap; }
|
|
setopt localtraps # should be ignored by EXIT
|
|
fn2() { TRAPEXIT() { print No, really exited; } }
|
|
fn1
|
|
fn2
|
|
fn1')
|
|
0:POSIX_TRAPS option
|
|
>TRAPEXIT () {
|
|
> print Exited
|
|
>}
|
|
>TRAPEXIT () {
|
|
> print No, really exited
|
|
>}
|
|
>No, really exited
|
|
|
|
(cd ..; $ZTST_exe -fc 'unsetopt posixtraps;
|
|
echo start program
|
|
emulate sh -c '\''testfn() {
|
|
echo start function
|
|
set -o | grep posixtraps
|
|
trap "echo EXIT TRAP TRIGGERED" EXIT
|
|
echo end function
|
|
}'\''
|
|
testfn
|
|
echo program continuing
|
|
echo end of program')
|
|
0:POSIX_TRAPS effect on EXIT trap is sticky
|
|
>start program
|
|
>start function
|
|
>noposixtraps off
|
|
>end function
|
|
>program continuing
|
|
>end of program
|
|
>EXIT TRAP TRIGGERED
|
|
|
|
(cd ..; $ZTST_exe -fc '
|
|
echo entering program
|
|
emulate sh -c '\''trap "echo POSIX exit trap triggered" EXIT'\''
|
|
fn() {
|
|
trap "echo native zsh function-local exit trap triggered" EXIT
|
|
echo entering native zsh function
|
|
}
|
|
fn
|
|
echo exiting program
|
|
')
|
|
0:POSIX EXIT trap can have nested native mode EXIT trap
|
|
>entering program
|
|
>entering native zsh function
|
|
>native zsh function-local exit trap triggered
|
|
>exiting program
|
|
>POSIX exit trap triggered
|
|
|
|
(cd ..; $ZTST_exe -fc '
|
|
echo entering program
|
|
emulate sh -c '\''spt() { trap "echo POSIX exit trap triggered" EXIT; }'\''
|
|
fn() {
|
|
trap "echo native zsh function-local exit trap triggered" EXIT
|
|
echo entering native zsh function
|
|
}
|
|
spt
|
|
fn
|
|
echo exiting program
|
|
')
|
|
0:POSIX EXIT trap not replaced if defined within function
|
|
>entering program
|
|
>entering native zsh function
|
|
>native zsh function-local exit trap triggered
|
|
>exiting program
|
|
>POSIX exit trap triggered
|
|
|
|
(set -e
|
|
printf "a\nb\n" | while read line
|
|
do
|
|
[[ $line = a* ]] || continue
|
|
((ctr++))
|
|
[[ $line = foo ]]
|
|
done
|
|
echo "ctr = $ctr"
|
|
)
|
|
1:ERREXIT in loop with simple commands
|
|
|
|
fn() {
|
|
emulate -L zsh
|
|
setopt errreturn
|
|
if false; then
|
|
false
|
|
print No.
|
|
else
|
|
print Oh, yes
|
|
fi
|
|
}
|
|
fn
|
|
0:ERR_RETURN not triggered in if condition
|
|
>Oh, yes
|
|
|
|
fn() {
|
|
emulate -L zsh
|
|
setopt errreturn
|
|
if true; then
|
|
false
|
|
print No.
|
|
else
|
|
print No, no.
|
|
fi
|
|
}
|
|
fn
|
|
1:ERR_RETURN in "if"
|
|
|
|
fn() {
|
|
emulate -L zsh
|
|
setopt errreturn
|
|
if false; then
|
|
print No.
|
|
else
|
|
false
|
|
print No, no.
|
|
fi
|
|
}
|
|
fn
|
|
1:ERR_RETURN in "else" branch (regression test)
|
|
|
|
$ZTST_testdir/../Src/zsh -f =(<<<"
|
|
if false; then
|
|
:
|
|
else
|
|
if [[ -n '' ]]; then
|
|
a=2
|
|
fi
|
|
print Yes
|
|
fi
|
|
")
|
|
0:ERR_RETURN when false "if" is the first statement in an "else" (regression)
|
|
>Yes
|
|
F:Must be tested with a top-level script rather than source or function
|
|
|
|
fn() {
|
|
emulate -L zsh
|
|
setopt errreturn
|
|
print before
|
|
false
|
|
print after
|
|
}
|
|
fn
|
|
1:ERR_RETURN, basic case
|
|
>before
|
|
|
|
fn() {
|
|
emulate -L zsh
|
|
setopt errreturn
|
|
print before
|
|
! true
|
|
! false
|
|
print after
|
|
}
|
|
fn
|
|
0:ERR_RETURN with "!"
|
|
>before
|
|
>after
|
|
|
|
fn() {
|
|
emulate -L zsh
|
|
setopt errreturn
|
|
print before
|
|
! true
|
|
! false
|
|
false
|
|
print after
|
|
}
|
|
fn
|
|
1:ERR_RETURN with "!" and a following false
|
|
>before
|
|
|
|
fn() {
|
|
emulate -L zsh
|
|
setopt errreturn
|
|
print before
|
|
! if true; then
|
|
false
|
|
fi
|
|
print after
|
|
}
|
|
fn
|
|
0:ERR_RETURN with "!" suppressed inside complex structure
|
|
>before
|
|
>after
|
|
|
|
fn() {
|
|
emulate -L zsh
|
|
setopt errreturn
|
|
print before
|
|
if true; then
|
|
false
|
|
fi
|
|
print after
|
|
}
|
|
fn
|
|
1:ERR_RETURN with no "!" suppression (control case)
|
|
>before
|
|
|
|
(setopt err_return
|
|
fn() {
|
|
print before-in
|
|
false && false
|
|
}
|
|
print before-out
|
|
fn
|
|
print after-out
|
|
)
|
|
1:ERR_RETURN with "&&" in function (regression test)
|
|
>before-out
|
|
>before-in
|
|
|
|
(setopt err_return
|
|
fn() {
|
|
print before-in
|
|
false && false
|
|
print after-in
|
|
}
|
|
print before-out
|
|
fn
|
|
print after-out
|
|
)
|
|
0:ERR_RETURN not triggered on LHS of "&&" in function
|
|
>before-out
|
|
>before-in
|
|
>after-in
|
|
>after-out
|
|
|
|
(setopt err_return
|
|
fn() {
|
|
print before-in
|
|
true && false
|
|
print after-in
|
|
}
|
|
print before-out
|
|
fn
|
|
print after-out
|
|
)
|
|
1:ERR_RETURN triggered on RHS of "&&" in function
|
|
>before-out
|
|
>before-in
|
|
|
|
(setopt err_exit
|
|
for x in y; do
|
|
false && true
|
|
done
|
|
print OK
|
|
)
|
|
0:ERR_EXIT not triggered by status 1 at end of for
|
|
>OK
|
|
|
|
(setopt err_exit
|
|
integer x=0
|
|
while (( ! x++ )); do
|
|
false && true
|
|
done
|
|
print OK
|
|
)
|
|
0:ERR_EXIT not triggered by status 1 at end of while
|
|
>OK
|
|
|
|
(setopt err_exit
|
|
repeat 1; do
|
|
false && true
|
|
done
|
|
print OK
|
|
)
|
|
0:ERR_EXIT not triggered by status 1 at end of repeat
|
|
>OK
|
|
|
|
(setopt err_exit
|
|
if true; then
|
|
false && true
|
|
fi
|
|
print OK
|
|
)
|
|
0:ERR_EXIT not triggered by status 1 at end of if
|
|
>OK
|
|
|
|
(setopt err_exit
|
|
{
|
|
false && true
|
|
}
|
|
print OK
|
|
)
|
|
0:ERR_EXIT not triggered by status 1 at end of { }
|
|
>OK
|
|
|
|
(setopt err_exit
|
|
for x in y; do
|
|
false
|
|
done
|
|
print OK
|
|
)
|
|
1:ERR_EXIT triggered by status 1 within for
|
|
|
|
(setopt err_exit
|
|
integer x=0
|
|
while (( ! x++ )); do
|
|
false
|
|
done
|
|
print OK
|
|
)
|
|
1:ERR_EXIT triggered by status 1 within while
|
|
|
|
(setopt err_exit
|
|
repeat 1; do
|
|
false
|
|
done
|
|
print OK
|
|
)
|
|
1:ERR_EXIT triggered by status 1 within repeat
|
|
|
|
(setopt err_exit
|
|
if true; then
|
|
false
|
|
fi
|
|
print OK
|
|
)
|
|
1:ERR_EXIT triggered by status 1 within if
|
|
|
|
(setopt err_exit
|
|
{
|
|
false
|
|
}
|
|
print OK
|
|
)
|
|
1:ERR_EXIT triggered by status 1 within { }
|
|
|
|
(setopt err_exit
|
|
() {
|
|
false && true
|
|
print Still functioning
|
|
false && true
|
|
}
|
|
print OK
|
|
)
|
|
1:ERR_EXIT triggered by status 1 at end of anon func
|
|
>Still functioning
|
|
|
|
if zmodload zsh/system 2>/dev/null; then
|
|
(
|
|
trap 'echo TERM; exit 2' TERM
|
|
trap 'echo EXIT' EXIT
|
|
kill -s TERM "$sysparams[pid]"
|
|
echo 'FATAL: we should never get here!' 1>&2
|
|
exit 1
|
|
)
|
|
else
|
|
ZTST_skip="zsh/system library not found."
|
|
fi
|
|
2:EXIT trap from TERM trap
|
|
>TERM
|
|
>EXIT
|
|
|
|
# Should not get "hello" in the single quotes.
|
|
(
|
|
trap "echo hello" EXIT;
|
|
{ :; } | { read line; print "'$line'"; }
|
|
)
|
|
0:EXIT trap not called in LHS of pipeline: Shell construct on LHS
|
|
>''
|
|
>hello
|
|
|
|
(
|
|
trap "echo hello" EXIT;
|
|
cat </dev/null | { read line; print "'$line'"; }
|
|
)
|
|
0:EXIT trap not called in LHS of pipeline: External command on LHS
|
|
>''
|
|
>hello
|
|
|
|
%clean
|
|
|
|
rm -f TRAPEXIT
|