da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin########################################################################
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# This software is part of the ast package #
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner# Copyright (c) 1982-2010 AT&T Intellectual Property #
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# and is licensed under the #
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# Common Public License, Version 1.0 #
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# by AT&T Intellectual Property #
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# A copy of the License is available at #
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) #
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# Information and Software Systems Research #
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# AT&T Research #
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# Florham Park NJ #
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# David Korn <dgk@research.att.com> #
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin########################################################################
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainztmp=$(mktemp -dt) || { err_exit mktemp -dt failed; exit 1; }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinif [[ $( ${SHELL-ksh} -s hello<<-\!
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin false && print bad
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinif [[ $x != good ]]
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin[[ $($SHELL -D -c 'print hi; print $"hello"') == '"hello"' ]] || err_exit 'ksh -D not working'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzprint $'(print -u1 aha) &>/dev/null\n(print -u2 aha) &>/dev/null' > $env
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinprint $'PS1=""\nfunction env_hit\n{\n\tprint OK\n}' > $rc
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz err_exit "\$ENV file &>/dev/null does not redirect stdout -- expected '', got $got"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if [[ $got != *nonstandard* || $got == *$'\n'* ]]
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz err_exit "\$ENV file &>/dev/null does not redirect stderr -- expected one diagnostic line, got $got"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | $SHELL 2>&1) == "OK" ]] &&
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin err_exit 'privileged nointeractive shell reads $ENV file'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | $SHELL -E 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | $SHELL +E 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | $SHELL --rc 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | $SHELL --norc 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | $SHELL 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | $SHELL -E 2>&1) == "OK" ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | $SHELL +E 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | $SHELL --rc 2>&1) == "OK" ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | $SHELL --norc 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | $SHELL -i 2>&1) == "OK" ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL 2>&1) == "OK" ]] &&
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin err_exit 'privileged nointeractive shell reads $HOME/.kshrc file'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL -E 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL +E 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL --rc 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL --norc 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL -E 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL +E 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL --rc 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL --norc 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL 2>&1) == "OK" ]] &&
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin err_exit 'privileged nointeractive shell reads $HOME/.kshrc file'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL -E 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL +E 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL --rc 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL --norc 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL -E 2>&1) == "OK" ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL +E 2>&1) == "OK" ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL --rc 2>&1) == "OK" ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(print env_hit | HOME=$tmp $SHELL --norc 2>&1) == "OK" ]] &&
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin set -- **.c
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin [[ $* == $expected ]] ||
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin err_exit "-G **.c failed -- expected '$expected', got '$*'"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin expected='bam.c bar bar.c bar/bam.c bar/foo.c foo foo/bam.c'
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin [[ $* == $expected ]] ||
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin err_exit "-G ** failed -- expected '$expected', got '$*'"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin set -- **/*.c
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin [[ $* == $expected ]] ||
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin err_exit "-G **/*.c failed -- expected '$expected', got '$*'"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin [[ $* == $expected ]] ||
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin err_exit "-G **/bam.c failed -- expected '$expected', got '$*'"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chint="<$$>.profile.<$$>"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD $SHELL -l </dev/null 2>&1) == *$t* ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD $SHELL --login </dev/null 2>&1) == *$t* ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD $SHELL --login-shell </dev/null 2>&1) == *$t* ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD $SHELL --login_shell </dev/null 2>&1) == *$t* ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD exec -a -ksh $SHELL </dev/null 2>&1) == *$t* ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD ./-ksh -i </dev/null 2>&1) == *$t* ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD ./-ksh -ip </dev/null 2>&1) == *$t* ]] &&
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD $SHELL -l </dev/null 2>&1) == *$t* ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD $SHELL --login </dev/null 2>&1) == *$t* ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD $SHELL --login-shell </dev/null 2>&1) == *$t* ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD $SHELL --login_shell </dev/null 2>&1) == *$t* ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD exec -a -ksh $SHELL </dev/null 2>/dev/null) == *$t* ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz err_exit 'exec -a -ksh ksh 2>/dev/null ignores .profile'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD exec -a -ksh $SHELL </dev/null 2>&1) == *$t* ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz err_exit 'exec -a -ksh ksh 2>&1 ignores .profile'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD ./-ksh -i </dev/null 2>&1) == *$t* ]] ||
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $(HOME=$PWD ./-ksh -ip </dev/null 2>&1) == *$t* ]] &&
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# { exec interactive login_shell restricted xtrace } in the following test
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if [[ ! -o $opt ]]
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin [[ -o ?no-$opt ]] || err_exit "[[ -o ?no-$opt ]] failed"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin [[ -o ?no_$opt ]] || err_exit "[[ -o ?no_$opt ]] failed"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin exec interactive login_shell login-shell logi privileged \
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chindo [[ -o $opt ]]
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chindo if [[ -o ?$opt ]]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin[[ $(set +o) == $(set --state) ]] || err_exit "set --state different from set +o"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinset -- $(set --state)
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin[[ $1 == set && $2 == --default ]] || err_exit "set --state failed -- expected 'set --default *', got '$1 $2 *'"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin[[ $state == $default ]] || err_exit "set --state for default options failed: expected '$default', got '$state'"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin[[ $state == "set $restore" ]] || err_exit "set --state after restore failed: expected 'set $restore', got '$state'"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ( nopipefail=0 pipefail=1 command='false|true|true' )
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ( nopipefail=0 pipefail=1 command='true|false|true' )
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ( nopipefail=1 pipefail=1 command='true|true|false' )
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ( nopipefail=1 pipefail=1 command='false|false|false' )
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ( nopipefail=0 pipefail=0 command='true|true|true' )
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ( nopipefail=0 pipefail=0 command='print hi|(sleep 1;/bin/cat)>/dev/null' )
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzdo eval ${pipeline[i].command}
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz err_exit "--nopipefail '${pipeline[i].command}' exit status $status -- expected $expected"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzdo eval ${pipeline[i].command}
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz then err_exit "--pipefail '${pipeline[i].command}' exit status $status -- expected $expected"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz got=$(for((n=1;n<exp;n++))do $SHELL --pipefail -c '(sleep 0.1;false)|true|true' && break; done; print $n)
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $got == $exp ]] || err_exit "--pipefail -c '(sleep 0.1;false)|true|true' fails with exit status 0 (after $got/$exp iterations)"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz then err_exit 'command substitution with wrong exit status with pipefai'
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin false | true
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin (( $? )) || err_exit 'pipe not failing in subshell with pipefail'
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin$SHELL -c 'set -o pipefail; false | $(whence -p true);' && err_exit 'pipefail not returning failure with sh -c'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz while read i
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz[[ $got == @((12|21)(12|21)) ]] || err_exit "& job delayed by --pipefail, expected '$exp', got '$got'"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz$SHELL -c '[[ $- == *c* ]]' || err_exit 'option c not in $-'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzfor i in i l r s D E a b e f h k n t u v x B C G H
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzdo HOME=$tmp ENV= $SHELL -$i >/dev/null 2>&1 <<- ++EOF++ || err_exit "option $i not in \$-"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ \$- == *$i* ]] || exit 1
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzfor i in interactive login restricted allexport notify errexit \
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz noglob trackall keyword noexec nounset verbose xtrace braceexpand \
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzdo HOME=$tmp ENV= $SHELL -o $i >/dev/null 2>&1 <<- ++EOF++ || err_exit "option $i not equivalent to ${letters:j:1}"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ \$- == *${letters:j:1}* ]] || exit 1
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzexp=$(HISTFILE=$histfile $SHELL -c $'function foo\n{\ncat\n}\ntype foo')
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzdo got=$( ( HISTFILE=$histfile $SHELL -ic $'unset '$var$'\nfunction foo\n{\ncat\n}\ntype foo\nexit' ) 2>&1 )
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $got == "$exp" ]] || err_exit "function definition inside (...) with $var unset fails -- got '$got', expected '$exp'"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz got=$( { HISTFILE=$histfile $SHELL -ic $'unset '$var$'\nfunction foo\n{\ncat\n}\ntype foo\nexit' ;} 2>&1 )
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $got == "$exp" ]] || err_exit "function definition inside {...;} with $var unset fails -- got '$got', expected '$exp'"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz( unset HISTFILE; $SHELL -ic "HISTFILE=$histfile" 2>/dev/null ) || err_exit "setting HISTFILE when not in environment fails"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# the next tests loop on all combinations of
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# { SUB PAR CMD ADD }
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzprint $'#!'$SHELL$'\nkill -KILL $$' > command-kill
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzchmod +x command-kill script-kill
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz do cmd="${SUB[S].BEG}${PAR[P].BEG}${CMD[C]}${PAR[P].END} 2>&1${ADD[A]}${SUB[S].END}"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ $got == "$exp" ]] || err_exit "$cmd failed -- got '$got', expected '$exp'"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz$SHELL 2> /dev/null -c '{; true ;}' || err_exit 'leading ; causes syntax error in brace group'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz$SHELL 2> /dev/null -c '(; true ;)' || err_exit 'leading ; causes syntax error in parenthesis group'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzprint 'for ((i = 0; i < ${1:-10000}; i++ )); do printf "%.*c\n" 15 x; done' > pipefail
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz$SHELL --pipefail -c './pipefail 10000 | sed 1q' >/dev/null 2>&1 &
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzif [[ $status == 0 || $(kill -l $status) == PIPE ]]
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzelse err_exit "pipefail pipeline bypasses SIGPIPE and hangs"