mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-02-24 23:14:14 +00:00
a14d17c0f4
There was no check for the -B/braceexpand option before calling path_expand() to process brace expansion, making it impossible to turn off brace expansion within command substitutions. Normally the lexer flags brace expansion so that this code is not reached, but shell code within command substitutions is handled differently. Red Hat patches this by adding this check to the function itself: https://src.fedoraproject.org/rpms/ksh/blob/642af4d6/f/ksh-20140301-fikspand.patch But I think it's more logical to patch it at the point of decision. src/cmd/ksh93/sh/macro.c: endfield(): - Decide to call either path_generate() or path_expand() based on the state of the SH_BRACEEXPAND shell option. - Fix '#if SHOPT_BRACEPAT' preprocessor check that previously hardcoded this decision at compile time. src/cmd/ksh93/tests/options.sh: - Add tests.
565 lines
21 KiB
Bash
Executable file
565 lines
21 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}"
|
|
let Errors+=1
|
|
}
|
|
alias err_exit='err_exit $LINENO'
|
|
|
|
Command=${0##*/}
|
|
integer Errors=0
|
|
|
|
[[ -d $tmp && -w $tmp && $tmp == "$PWD" ]] || { err\_exit "$LINENO" '$tmp not set; run this from shtests. Aborting.'; exit 1; }
|
|
|
|
unset HISTFILE
|
|
export LC_ALL=C ENV=/./dev/null
|
|
|
|
ulimit -c 0
|
|
|
|
bincat=$(whence -p cat)
|
|
|
|
if [[ $( ${SHELL-ksh} -s hello<<-\!
|
|
print $1
|
|
!
|
|
) != hello ]]
|
|
then err_exit "${SHELL-ksh} -s not working"
|
|
fi
|
|
x=$(
|
|
set -e
|
|
false && print bad
|
|
print good
|
|
)
|
|
if [[ $x != good ]]
|
|
then err_exit 'sh -e not working'
|
|
fi
|
|
[[ $($SHELL -D -c 'print hi; print $"hello"') == '"hello"' ]] || err_exit 'ksh -D not working'
|
|
|
|
rc=$tmp/.kshrc
|
|
print $'PS1=""\nfunction env_hit\n{\n\tprint OK\n}' > $rc
|
|
|
|
export ENV=/.$rc
|
|
if [[ -o privileged ]]
|
|
then
|
|
[[ $(print env_hit | $SHELL 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged nointeractive shell reads $ENV file'
|
|
[[ $(print env_hit | $SHELL -E 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged -E reads $ENV file'
|
|
[[ $(print env_hit | $SHELL +E 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged +E reads $ENV file'
|
|
[[ $(print env_hit | $SHELL --rc 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged --rc reads $ENV file'
|
|
[[ $(print env_hit | $SHELL --norc 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged --norc reads $ENV file'
|
|
else
|
|
[[ $(print env_hit | $SHELL 2>&1) == "OK" ]] &&
|
|
err_exit 'nointeractive shell reads $ENV file'
|
|
[[ $(print env_hit | $SHELL -E 2>&1) == "OK" ]] ||
|
|
err_exit '-E ignores $ENV file'
|
|
[[ $(print env_hit | $SHELL +E 2>&1) == "OK" ]] &&
|
|
err_exit '+E reads $ENV file'
|
|
[[ $(print env_hit | $SHELL --rc 2>&1) == "OK" ]] ||
|
|
err_exit '--rc ignores $ENV file'
|
|
[[ $(print env_hit | $SHELL --norc 2>&1) == "OK" ]] &&
|
|
err_exit '--norc reads $ENV file'
|
|
[[ $(print env_hit | $SHELL -i 2>&1) == "OK" ]] ||
|
|
err_exit '-i ignores $ENV file'
|
|
fi
|
|
|
|
export ENV=/./dev/null
|
|
if [[ -o privileged ]]
|
|
then
|
|
[[ $(print env_hit | HOME=$tmp $SHELL 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged nointeractive shell reads $HOME/.kshrc file'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL -E 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged -E ignores empty $ENV'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL +E 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged +E reads $HOME/.kshrc file'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL --rc 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged --rc ignores empty $ENV'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL --norc 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged --norc reads $HOME/.kshrc file'
|
|
else
|
|
[[ $(print env_hit | HOME=$tmp $SHELL 2>&1) == "OK" ]] &&
|
|
err_exit 'nointeractive shell reads $HOME/.kshrc file'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL -E 2>&1) == "OK" ]] &&
|
|
err_exit '-E ignores empty $ENV'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL +E 2>&1) == "OK" ]] &&
|
|
err_exit '+E reads $HOME/.kshrc file'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL --rc 2>&1) == "OK" ]] &&
|
|
err_exit '--rc ignores empty $ENV'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL --norc 2>&1) == "OK" ]] &&
|
|
err_exit '--norc reads $HOME/.kshrc file'
|
|
fi
|
|
|
|
unset ENV
|
|
if [[ -o privileged ]]
|
|
then
|
|
[[ $(print env_hit | HOME=$tmp $SHELL 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged nointeractive shell reads $HOME/.kshrc file'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL -E 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged -E reads $HOME/.kshrc file'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL +E 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged +E reads $HOME/.kshrc file'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL --rc 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged --rc reads $HOME/.kshrc file'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL --norc 2>&1) == "OK" ]] &&
|
|
err_exit 'privileged --norc reads $HOME/.kshrc file'
|
|
else
|
|
[[ $(print env_hit | HOME=$tmp $SHELL 2>&1) == "OK" ]] &&
|
|
err_exit 'nointeractive shell reads $HOME/.kshrc file'
|
|
[[ $(set +x; print env_hit | HOME=$tmp $SHELL -E 2>&1) == "OK" ]] ||
|
|
err_exit '-E ignores $HOME/.kshrc file'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL +E 2>&1) == "OK" ]] &&
|
|
err_exit '+E reads $HOME/.kshrc file'
|
|
[[ $(set +x; print env_hit | HOME=$tmp $SHELL --rc 2>&1) == "OK" ]] ||
|
|
err_exit '--rc ignores $HOME/.kshrc file'
|
|
[[ $(print env_hit | HOME=$tmp $SHELL --norc 2>&1) == "OK" ]] &&
|
|
err_exit '--norc reads $HOME/.kshrc file'
|
|
fi
|
|
|
|
rm -rf $tmp/.kshrc
|
|
|
|
if command set -G 2> /dev/null
|
|
then mkdir bar foo
|
|
> bar.c > bam.c
|
|
> bar/foo.c > bar/bam.c
|
|
> foo/bam.c
|
|
set -- **.c
|
|
expected='bam.c bar.c'
|
|
[[ $* == $expected ]] ||
|
|
err_exit "-G **.c failed -- expected '$expected', got '$*'"
|
|
set -- **
|
|
expected='bam.c bar bar.c bar/bam.c bar/foo.c foo foo/bam.c'
|
|
[[ $* == $expected ]] ||
|
|
err_exit "-G ** failed -- expected '$expected', got '$*'"
|
|
set -- **/*.c
|
|
expected='bam.c bar.c bar/bam.c bar/foo.c foo/bam.c'
|
|
[[ $* == $expected ]] ||
|
|
err_exit "-G **/*.c failed -- expected '$expected', got '$*'"
|
|
set -- **/bam.c
|
|
expected='bam.c bar/bam.c foo/bam.c'
|
|
[[ $* == $expected ]] ||
|
|
err_exit "-G **/bam.c failed -- expected '$expected', got '$*'"
|
|
fi
|
|
|
|
t="<$$>.profile.<$$>"
|
|
echo "echo '$t'" > .profile
|
|
cp $SHELL ./-ksh
|
|
if [[ -o privileged ]]
|
|
then
|
|
[[ $(HOME=$PWD $SHELL -l </dev/null 2>&1) == *$t* ]] &&
|
|
err_exit 'privileged -l reads .profile'
|
|
[[ $(HOME=$PWD $SHELL --login </dev/null 2>&1) == *$t* ]] &&
|
|
err_exit 'privileged --login reads .profile'
|
|
[[ $(HOME=$PWD $SHELL --login-shell </dev/null 2>&1) == *$t* ]] &&
|
|
err_exit 'privileged --login-shell reads .profile'
|
|
[[ $(HOME=$PWD $SHELL --login_shell </dev/null 2>&1) == *$t* ]] &&
|
|
err_exit 'privileged --login_shell reads .profile'
|
|
[[ $(HOME=$PWD exec -a -ksh $SHELL </dev/null 2>&1) == *$t* ]] &&
|
|
err_exit 'privileged exec -a -ksh ksh reads .profile'
|
|
[[ $(HOME=$PWD ./-ksh -i </dev/null 2>&1) == *$t* ]] &&
|
|
err_exit 'privileged ./-ksh reads .profile'
|
|
[[ $(HOME=$PWD ./-ksh -ip </dev/null 2>&1) == *$t* ]] &&
|
|
err_exit 'privileged ./-ksh -p reads .profile'
|
|
else
|
|
[[ $(HOME=$PWD $SHELL -l </dev/null 2>&1) == *$t* ]] ||
|
|
err_exit '-l ignores .profile'
|
|
[[ $(HOME=$PWD $SHELL --login </dev/null 2>&1) == *$t* ]] ||
|
|
err_exit '--login ignores .profile'
|
|
[[ $(HOME=$PWD $SHELL --login-shell </dev/null 2>&1) == *$t* ]] ||
|
|
err_exit '--login-shell ignores .profile'
|
|
[[ $(HOME=$PWD $SHELL --login_shell </dev/null 2>&1) == *$t* ]] ||
|
|
err_exit '--login_shell ignores .profile'
|
|
[[ $(HOME=$PWD exec -a -ksh $SHELL </dev/null 2>/dev/null) == *$t* ]] ||
|
|
err_exit 'exec -a -ksh ksh 2>/dev/null ignores .profile'
|
|
[[ $(HOME=$PWD exec -a -ksh $SHELL </dev/null 2>&1) == *$t* ]] ||
|
|
err_exit 'exec -a -ksh ksh 2>&1 ignores .profile'
|
|
[[ $(HOME=$PWD ./-ksh -i </dev/null 2>&1) == *$t* ]] ||
|
|
err_exit './-ksh ignores .profile'
|
|
[[ $(HOME=$PWD ./-ksh -ip </dev/null 2>&1) == *$t* ]] &&
|
|
err_exit './-ksh -p does not ignore .profile'
|
|
fi
|
|
rm .profile
|
|
|
|
# { exec interactive login_shell restricted xtrace } in the following test
|
|
|
|
for opt in \
|
|
allexport all-export all_export \
|
|
bgnice bg-nice bg_nice \
|
|
clobber emacs \
|
|
errexit err-exit err_exit \
|
|
glob \
|
|
globstar glob-star glob_star \
|
|
gmacs \
|
|
ignoreeof ignore-eof ignore_eof \
|
|
keyword log markdirs monitor notify \
|
|
pipefail pipe-fail pipe_fail \
|
|
trackall track-all track_all \
|
|
unset verbose vi \
|
|
viraw vi-raw vi_raw
|
|
do old=$opt
|
|
if [[ ! -o $opt ]]
|
|
then old=no$opt
|
|
fi
|
|
|
|
set --$opt || err_exit "set --$opt failed"
|
|
[[ -o $opt ]] || err_exit "[[ -o $opt ]] failed"
|
|
[[ -o no$opt ]] && err_exit "[[ -o no$opt ]] failed"
|
|
[[ -o no-$opt ]] && err_exit "[[ -o no-$opt ]] failed"
|
|
[[ -o no_$opt ]] && err_exit "[[ -o no_$opt ]] failed"
|
|
[[ -o ?$opt ]] || err_exit "[[ -o ?$opt ]] failed"
|
|
[[ -o ?no$opt ]] || err_exit "[[ -o ?no$opt ]] failed"
|
|
[[ -o ?no-$opt ]] || err_exit "[[ -o ?no-$opt ]] failed"
|
|
[[ -o ?no_$opt ]] || err_exit "[[ -o ?no_$opt ]] failed"
|
|
|
|
set --no$opt || err_exit "set --no$opt failed"
|
|
[[ -o no$opt ]] || err_exit "[[ -o no$opt ]] failed"
|
|
[[ -o $opt ]] && err_exit "[[ -o $opt ]] failed"
|
|
|
|
set --no-$opt || err_exit "set --no-$opt failed"
|
|
[[ -o no$opt ]] || err_exit "[[ -o no$opt ]] failed"
|
|
[[ -o $opt ]] && err_exit "[[ -o $opt ]] failed"
|
|
|
|
set --no_$opt || err_exit "set --no_$opt failed"
|
|
[[ -o no$opt ]] || err_exit "[[ -o no$opt ]] failed"
|
|
[[ -o $opt ]] && err_exit "[[ -o $opt ]] failed"
|
|
|
|
set -o $opt || err_exit "set -o $opt failed"
|
|
[[ -o $opt ]] || err_exit "[[ -o $opt ]] failed"
|
|
set -o $opt=1 || err_exit "set -o $opt=1 failed"
|
|
[[ -o $opt ]] || err_exit "[[ -o $opt ]] failed"
|
|
set -o no$opt=0 || err_exit "set -o no$opt=0 failed"
|
|
[[ -o $opt ]] || err_exit "[[ -o $opt ]] failed"
|
|
set --$opt=1 || err_exit "set --$opt=1 failed"
|
|
[[ -o $opt ]] || err_exit "[[ -o $opt ]] failed"
|
|
set --no$opt=0 || err_exit "set --no$opt=0 failed"
|
|
[[ -o $opt ]] || err_exit "[[ -o $opt ]] failed"
|
|
|
|
set -o no$opt || err_exit "set -o no$opt failed"
|
|
[[ -o no$opt ]] || err_exit "[[ -o no$opt ]] failed"
|
|
set -o $opt=0 || err_exit "set -o $opt=0 failed"
|
|
[[ -o no$opt ]] || err_exit "[[ -o no$opt ]] failed"
|
|
set -o no$opt=1 || err_exit "set -o no$opt=1 failed"
|
|
[[ -o no$opt ]] || err_exit "[[ -o no$opt ]] failed"
|
|
set --$opt=0 || err_exit "set --$opt=0 failed"
|
|
[[ -o no$opt ]] || err_exit "[[ -o no$opt ]] failed"
|
|
set --no$opt=1 || err_exit "set --no$opt=1 failed"
|
|
[[ -o no$opt ]] || err_exit "[[ -o no$opt ]] failed"
|
|
|
|
set -o no-$opt || err_exit "set -o no-$opt failed"
|
|
[[ -o no-$opt ]] || err_exit "[[ -o no-$opt ]] failed"
|
|
|
|
set -o no_$opt || err_exit "set -o no_$opt failed"
|
|
[[ -o no_$opt ]] || err_exit "[[ -o no_$opt ]] failed"
|
|
|
|
set +o $opt || err_exit "set +o $opt failed"
|
|
[[ -o no$opt ]] || err_exit "[[ -o no$opt ]] failed"
|
|
|
|
set +o no$opt || err_exit "set +o no$opt failed"
|
|
[[ -o $opt ]] || err_exit "[[ -o $opt ]] failed"
|
|
|
|
set +o no-$opt || err_exit "set +o no-$opt failed"
|
|
[[ -o $opt ]] || err_exit "[[ -o $opt ]] failed"
|
|
|
|
set +o no_$opt || err_exit "set +o no_$opt failed"
|
|
[[ -o $opt ]] || err_exit "[[ -o $opt ]] failed"
|
|
|
|
set --$old
|
|
done
|
|
|
|
for opt in \
|
|
exec interactive login_shell login-shell logi privileged \
|
|
rc restricted xtrace
|
|
do [[ -o $opt ]]
|
|
y=$?
|
|
[[ -o no$opt ]]
|
|
n=$?
|
|
case $y$n in
|
|
10|01) ;;
|
|
*) err_exit "[[ -o $opt ]] == [[ -o no$opt ]]" ;;
|
|
esac
|
|
done
|
|
|
|
for opt in \
|
|
foo foo-bar foo_bar
|
|
do if [[ -o ?$opt ]]
|
|
then err_exit "[[ -o ?$opt ]] should fail"
|
|
fi
|
|
if [[ -o ?no$opt ]]
|
|
then err_exit "[[ -o ?no$opt ]] should fail"
|
|
fi
|
|
done
|
|
|
|
[[ $(set +o) == $(set --state) ]] || err_exit "set --state different from set +o"
|
|
set -- $(set --state)
|
|
[[ $1 == set && $2 == --default ]] || err_exit "set --state failed -- expected 'set --default *', got '$1 $2 *'"
|
|
shift
|
|
restore=$*
|
|
shift
|
|
off=
|
|
for opt
|
|
do case $opt in
|
|
--not*) opt=${opt/--/--no} ;;
|
|
--no*) opt=${opt/--no/--} ;;
|
|
--*) opt=${opt/--/--no} ;;
|
|
esac
|
|
off="$off $opt"
|
|
done
|
|
set $off
|
|
state=$(set --state)
|
|
default=$(set --default --state)
|
|
[[ $state == $default ]] || err_exit "set --state for default options failed: expected '$default', got '$state'"
|
|
set $restore
|
|
state=$(set --state)
|
|
[[ $state == "set $restore" ]] || err_exit "set --state after restore failed: expected 'set $restore', got '$state'"
|
|
|
|
typeset -a pipeline
|
|
pipeline=(
|
|
( nopipefail=0 pipefail=1 command='false|true|true' )
|
|
( nopipefail=0 pipefail=1 command='true|false|true' )
|
|
( nopipefail=1 pipefail=1 command='true|true|false' )
|
|
( nopipefail=1 pipefail=1 command='false|false|false' )
|
|
( nopipefail=0 pipefail=0 command='true|true|true' )
|
|
( nopipefail=0 pipefail=0 command='print hi|(sleep .1;"$bincat")>/dev/null' )
|
|
)
|
|
set --nopipefail
|
|
for ((i = 0; i < ${#pipeline[@]}; i++ ))
|
|
do eval ${pipeline[i].command}
|
|
status=$?
|
|
expected=${pipeline[i].nopipefail}
|
|
[[ $status == $expected ]] ||
|
|
err_exit "--nopipefail '${pipeline[i].command}' exit status $status -- expected $expected"
|
|
done
|
|
ftt=0
|
|
set --pipefail
|
|
for ((i = 0; i < ${#pipeline[@]}; i++ ))
|
|
do eval ${pipeline[i].command}
|
|
status=$?
|
|
expected=${pipeline[i].pipefail}
|
|
if [[ $status != $expected ]]
|
|
then err_exit "--pipefail '${pipeline[i].command}' exit status $status -- expected $expected"
|
|
(( i == 0 )) && ftt=1
|
|
fi
|
|
done
|
|
if (( ! ftt ))
|
|
then exp=10
|
|
got=$(for((n=1;n<exp;n++))do $SHELL --pipefail -c '(sleep 0.1;false)|true|true' && break; done; print $n)
|
|
[[ $got == $exp ]] || err_exit "--pipefail -c '(sleep 0.1;false)|true|true' fails with exit status 0 (after $got/$exp iterations)"
|
|
fi
|
|
|
|
echo=$(whence -p echo)
|
|
for ((i=0; i < 20; i++))
|
|
do if ! x=$(true | $echo 123)
|
|
then err_exit 'command substitution with wrong exit status with pipefai'
|
|
break
|
|
fi
|
|
done
|
|
(
|
|
set -o pipefail
|
|
false | true
|
|
(( $? )) || err_exit 'pipe not failing in subshell with pipefail'
|
|
) | wc >/dev/null
|
|
$SHELL -c 'set -o pipefail; false | $(whence -p true);' && err_exit 'pipefail not returning failure with sh -c'
|
|
exp='1212 or 1221'
|
|
got=$(
|
|
set --pipefail
|
|
pipe() { date | cat > /dev/null ;}
|
|
print $'1\n2' |
|
|
while read i
|
|
do if pipe $tmp
|
|
then { print -n $i; sleep 2; print -n $i; } &
|
|
fi
|
|
done
|
|
wait
|
|
)
|
|
[[ $got == @((12|21)(12|21)) ]] || err_exit "& job delayed by --pipefail, expected '$exp', got '$got'"
|
|
$SHELL -c '[[ $- == *c* ]]' || err_exit 'option c not in $-'
|
|
> $tmp/.profile
|
|
for i in i l r s D E a b e f h k n t u v x B C G H
|
|
do HOME=$tmp ENV=/./dev/null $SHELL -$i >/dev/null 2>&1 <<- ++EOF++ || err_exit "option $i not in \$-"
|
|
[[ \$- == *$i* ]] || exit 1
|
|
++EOF++
|
|
done
|
|
letters=ilrabefhknuvxBCGE
|
|
integer j=0
|
|
for i in interactive login restricted allexport notify errexit \
|
|
noglob trackall keyword noexec nounset verbose xtrace braceexpand \
|
|
noclobber globstar rc
|
|
do HOME=$tmp ENV=/./dev/null $SHELL -o $i >/dev/null 2>&1 <<- ++EOF++ || err_exit "option $i not equivalent to ${letters:j:1}"
|
|
[[ \$- == *${letters:j:1}* ]] || exit 1
|
|
++EOF++
|
|
((j++))
|
|
done
|
|
|
|
export ENV=/./dev/null PS1="(:$$:)"
|
|
histfile=$tmp/history
|
|
exp=$(HISTFILE=$histfile $SHELL -c $'function foo\n{\ncat\n}\ntype foo')
|
|
for var in HISTSIZE HISTFILE
|
|
do got=$( set +x; ( HISTFILE=$histfile $SHELL +E -ic $'unset '$var$'\nfunction foo\n{\ncat\n}\ntype foo\nexit' ) 2>&1 )
|
|
got=${got##*"$PS1"}
|
|
[[ $got == "$exp" ]] || err_exit "function definition inside (...) with $var unset fails -- got '$got', expected '$exp'"
|
|
got=$( set +x; { HISTFILE=$histfile $SHELL +E -ic $'unset '$var$'\nfunction foo\n{\ncat\n}\ntype foo\nexit' ;} 2>&1 )
|
|
got=${got##*"$PS1"}
|
|
[[ $got == "$exp" ]] || err_exit "function definition inside {...;} with $var unset fails -- got '$got', expected '$exp'"
|
|
done
|
|
( unset HISTFILE; $SHELL -ic "HISTFILE=$histfile" 2>/dev/null ) || err_exit "setting HISTFILE when not in environment fails"
|
|
|
|
# the next tests loop on all combinations of
|
|
# { SUB PAR CMD ADD }
|
|
|
|
SUB=(
|
|
( BEG='$( ' END=' )' )
|
|
( BEG='${ ' END='; }' )
|
|
)
|
|
PAR=(
|
|
( BEG='( ' END=' )' )
|
|
( BEG='{ ' END='; }' )
|
|
)
|
|
CMD=( command-kill script-kill )
|
|
ADD=( '' '; :' )
|
|
|
|
print $'#!'$SHELL$'\nkill -KILL $$' > command-kill
|
|
print $'kill -KILL $$' > script-kill
|
|
chmod +x command-kill script-kill
|
|
export PATH=.:$PATH
|
|
exp='Killed'
|
|
for ((S=0; S<${#SUB[@]}; S++))
|
|
do for ((P=0; P<${#PAR[@]}; P++))
|
|
do for ((C=0; C<${#CMD[@]}; C++))
|
|
do for ((A=0; A<${#ADD[@]}; A++))
|
|
do cmd="${SUB[S].BEG}${PAR[P].BEG}${CMD[C]}${PAR[P].END} 2>&1${ADD[A]}${SUB[S].END}"
|
|
eval got="$cmd"
|
|
got=${got##*': '}
|
|
got=${got%%'('*}
|
|
[[ $got == "$exp" ]] || err_exit "$cmd failed -- got '$got', expected '$exp'"
|
|
done
|
|
done
|
|
done
|
|
done
|
|
|
|
$SHELL 2> /dev/null -c '{; true ;}' || err_exit 'leading ; causes syntax error in brace group'
|
|
$SHELL 2> /dev/null -c '(; true ;)' || err_exit 'leading ; causes syntax error in parenthesis group'
|
|
|
|
print 'for ((i = 0; i < ${1:-10000}; i++ )); do printf "%.*c\n" 15 x; done' > pipefail
|
|
chmod +x pipefail
|
|
$SHELL --pipefail -c './pipefail 10000 | sed 1q' >/dev/null 2>&1 &
|
|
tst=$!
|
|
{ sleep 4; kill $tst; } 2>/dev/null &
|
|
spy=$!
|
|
wait $tst 2>/dev/null
|
|
status=$?
|
|
if [[ $status == 0 || $(kill -l $status) == PIPE ]]
|
|
then kill $spy 2>/dev/null
|
|
else err_exit "pipefail pipeline bypasses SIGPIPE and hangs"
|
|
fi
|
|
wait
|
|
|
|
[[ $($SHELL -uc '[[ "${d1.u[z asd].revents}" ]]' 2>&1) == *'d1.u[z asd].revents'* ]] || err_exit 'name of unset parameter not in error message'
|
|
|
|
[[ $($SHELL 2> /dev/null -xc $'set --showme\nprint 1\n; print 2') == 1 ]] || err_exit 'showme option with xtrace not working correctly'
|
|
|
|
$SHELL -uc 'var=foo;unset var;: ${var%foo}' >/dev/null 2>&1 && err_exit '${var%foo} should fail with set -u'
|
|
$SHELL -uc 'var=foo;unset var;: ${!var}' >/dev/null 2>&1 && err_exit '${!var} should fail with set -u'
|
|
$SHELL -uc 'var=foo;unset var;: ${#var}' >/dev/null 2>&1 && err_exit '${#var} should fail with set -u'
|
|
$SHELL -uc 'var=foo;unset var;: ${var-OK}' >/dev/null 2>&1 || err_exit '${var-OK} should not fail with set -u'
|
|
$SHELL -uc 'var=foo;unset var;: ${var:-OK}' >/dev/null 2>&1 || err_exit '${var:-OK} should not fail with set -u'
|
|
(set -u -- one two; : $2) 2>/dev/null || err_exit "an unset PP failed with set -u"
|
|
(set -u -- one two; : $3) 2>/dev/null && err_exit "a set PP failed to fail with set -u"
|
|
(set -u -- one two; : ${3%foo}) 2>/dev/null && err_exit '${3%foo} failed to fail with set -u'
|
|
(set -u -- one two; : ${3-OK}) 2>/dev/null || err_exit '${3-OK} wrongly failed with set -u'
|
|
(set -u -- one two; : ${3:-OK}) 2>/dev/null || err_exit '${3:-OK} wrongly failed with set -u'
|
|
(set -u -- one two; : ${#3}) 2>/dev/null && err_exit '${#3} failed to fail with set -u'
|
|
(set -u --; : $@ $*) 2>/dev/null || err_exit '$@ and/or $* fail to be exempt from set -u'
|
|
$SHELL -uc ': $!' 2>/dev/null && err_exit '$! failed to fail with set -u'
|
|
$SHELL -uc ': ${!%foo}' >/dev/null 2>&1 && err_exit '${!%foo} should fail with set -u'
|
|
$SHELL -uc ': ${#!}' >/dev/null 2>&1 && err_exit '${#!} should fail with set -u'
|
|
$SHELL -uc ': ${!-OK}' >/dev/null 2>&1 || err_exit '${!-OK} should not fail with set -u'
|
|
$SHELL -uc ': ${!:-OK}' >/dev/null 2>&1 || err_exit '${!:-OK} should not fail with set -u'
|
|
|
|
z=$($SHELL 2>&1 -uc 'print ${X23456789012345}')
|
|
[[ $z == *X23456789012345:* ]] || err_exit "error message garbled with set -u got $z"
|
|
|
|
# pipe hang bug fixed 2011-03-15
|
|
float start=SECONDS toolong=3
|
|
( export toolong
|
|
$SHELL <<-EOF
|
|
set -o pipefail
|
|
(sleep $toolong;kill \$\$> /dev/null) &
|
|
cat $SHELL | for ((i=0; i < 5; i++))
|
|
do
|
|
date | wc > /dev/null
|
|
$SHELL -c 'read -N1'
|
|
done
|
|
EOF
|
|
) 2> /dev/null
|
|
(( (SECONDS-start) > (toolong-0.5) )) && err_exit "pipefail causes script to hang"
|
|
|
|
# showme with arithmetic for loops
|
|
$SHELL -n -c $'for((;1;))\ndo ; nothing\ndone' 2>/dev/null || err_exit 'showme commands give syntax error inside arithmetic for loops'
|
|
|
|
#set -x
|
|
float t1=SECONDS
|
|
set -o pipefail
|
|
print | while read
|
|
do if { date | true;} ; true
|
|
then sleep 2 &
|
|
fi
|
|
done
|
|
(( (SECONDS-t1) > .5 )) && err_exit 'pipefail should not wait for background processes'
|
|
|
|
# process source files from profiles as profile files
|
|
print '. ./dotfile' > envfile
|
|
print $'alias print=:\nprint foobar' > dotfile
|
|
[[ $(ENV=/.$PWD/envfile $SHELL -i -c : 2>/dev/null) == foobar ]] && err_exit 'files source from profile does not process aliases correctly'
|
|
|
|
# ======
|
|
# test that '-o posix' option (not having a letter) does not affect "$-" expansion
|
|
# other than B = braceexpand
|
|
(
|
|
command set +o posix 2>/dev/null
|
|
opt1=${-/B/}
|
|
command set -o posix 2>/dev/null
|
|
opt2=$-
|
|
[[ $opt1 == "$opt2" ]]
|
|
) || err_exit '-o posix option affects $- expansion'
|
|
|
|
# ======
|
|
# ksh 93u+ did not honor 'monitor' option on command line (rhbz#960034)
|
|
"$SHELL" -m -c '[[ -o monitor ]]' || err_exit 'option -m on command line does not work'
|
|
"$SHELL" -o monitor -c '[[ -o monitor ]]' || err_exit 'option -o monitor on command line does not work'
|
|
|
|
# ======
|
|
# Brace expansion could not be turned off in command substitutions (rhbz#1078698)
|
|
set -B
|
|
expect='test{1,2}'
|
|
actual=$(set +B; echo `echo test{1,2}`)
|
|
[[ $actual == "$expect" ]] || err_exit 'Brace expansion not turned off in `comsub`' \
|
|
"(expected $(printf %q "$expect"), got $(printf %q "$actual"))"
|
|
actual=$(set +B; echo $(echo test{1,2}))
|
|
[[ $actual == "$expect" ]] || err_exit 'Brace expansion not turned off in $(comsub)' \
|
|
"(expected $(printf %q "$expect"), got $(printf %q "$actual"))"
|
|
actual=$(set +B; echo ${ echo test{1,2}; })
|
|
[[ $actual == "$expect" ]] || err_exit 'Brace expansion not turned off in ${ comsub; }' \
|
|
"(expected $(printf %q "$expect"), got $(printf %q "$actual"))"
|
|
|
|
# ======
|
|
exit $((Errors<125?Errors:125))
|