NOTE regression tests for --regress enabled ksh

UNIT ksh-regress

EXPORT HOME=. ENV=.env.sh LC_ALL=C HISTFILE=

TEST mode suid/sgid combinations

# these tests are the product { all modes combinations } X { tests }

defaults=(

"etc=$HOME"

"source"

)

modes=(

interactive

login

privileged

rc

restricted

)

tests=(

""

"euid=0"

"euid=0 p_suid=0"

"euid=0 p_suid=99999"

"euid=1"

"euid=1 p_suid=0"

"euid=1 p_suid=99999"

"egid=1"

"egid=1 p_suid=0"

"egid=1 p_suid=99999"

)

integer n=1 m=${#modes[@]}

d=

for o in ${defaults[@]}

do d="$d --regress=$o"

done

for ((b=0; b<m; b++))

do (( n *= 3 ))

done

for (( b=0; b<n; b++ ))

do k=

z=$(printf "%0$m..3u" $b)

for (( i=0; i<m; i++ ))

do case $z in

1*) k="$k --no${modes[i]}" ;;

2*) k="$k --${modes[i]}" ;;

esac

z=${z#?}

done

for t in "${tests[@]}"

do o=$d

for r in $t

do o="$o --regress=$r"

done

o="$o $k"

EXEC $o <<!

set --state

!

done

done

TEST privileged/noprivileged sequence

EXEC --regress=etc=. --regress=euid=1 --privileged <<!

set --state; set --noprivileged; set --state; set --privileged; set --state; set --noprivileged; set --state

!