######################################################################## # # # This software is part of the ast package # # Copyright (c) 1982-2007 AT&T Intellectual Property # # and is licensed under the # # Common Public License, Version 1.0 # # by AT&T Intellectual Property # # # # A copy of the License is available at # # http://www.opensource.org/licenses/cpl1.0.txt # # (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) # # # # Information and Software Systems Research # # AT&T Research # # Florham Park NJ # # # # David Korn # # # ######################################################################## function err_exit { print -u2 -n "\t" print -u2 -r ${Command}[$1]: "${@:2}" let Errors+=1 } alias err_exit='err_exit $LINENO' # test basic file operations like redirection, pipes, file expansion Command=${0##*/} integer Errors=0 umask u=rwx,go=rx || err_exit "umask u=rws,go=rx failed" if [[ $(umask -S) != u=rwx,g=rx,o=rx ]] then err_exit 'umask -S incorrect' fi mkdir /tmp/ksh$$ || err_exit "mkdir /tmp/ksh$$ failed" trap "cd /; rm -rf /tmp/ksh$$" EXIT pwd=$PWD [[ $SHELL != /* ]] && SHELL=$pwd/$SHELL cd /tmp/ksh$$ || err_exit "cd /tmp/ksh$$ failed" # optimizer bug test > foobar for i in 1 2 do print foobar* rm -f foobar done > out$$ if [[ "$( .foo if [[ $(print *) != dir ]] then err_exit 'file expansion leading . not working' fi date > dat1 || err_exit "date > dat1 failed" test -r dat1 || err_exit "dat1 is not readable" x=dat1 cat <$x > dat2 || err_exit "cat < $x > dat2 failed" cat dat1 dat2 | cat | cat | cat > dat3 || err_exit "cat pipe failed" cat > dat4 < dat5 & wait $! set -- dat* if (( $# != 5 )) then err_exit "dat* matches only $# files" fi if (command > foo\\abc) 2> /dev/null then set -- foo* if [[ $1 != 'foo\abc' ]] then err_exit 'foo* does not match foo\abc' fi fi if ( : > TT* && : > TTfoo ) 2>/dev/null then set -- TT* if (( $# < 2 )) then err_exit 'TT* not expanding when file TT* exists' fi fi cd ~- || err_exit "cd back failed" cat > /tmp/ksh$$/script <<- ! #! $SHELL print -r -- \$0 ! chmod 755 /tmp/ksh$$/script if [[ $(/tmp/ksh$$/script) != "/tmp/ksh$$/script" ]] then err_exit '$0 not correct for #! script' fi rm -r /tmp/ksh$$ || err_exit "rm -r /tmp/ksh$$ failed" bar=foo eval foo=\$bar if [[ $foo != foo ]] then err_exit 'eval foo=\$bar not working' fi bar='foo=foo\ bar' eval $bar if [[ $foo != 'foo bar' ]] then err_exit 'eval foo=\$bar, with bar="foo\ bar" not working' fi cd /tmp cd ../../tmp || err_exit "cd ../../tmp failed" if [[ $PWD != /tmp ]] then err_exit 'cd ../../tmp is not /tmp' fi ( sleep 2; cat < /tmp/foobar$$ & wait $! foobar=$( < /tmp/foobar$$) if [[ $foobar != foobar ]] then err_exit "$foobar is not foobar" fi { print foo /bin/echo bar print bam } > /tmp/foobar$$ if [[ $( < /tmp/foobar$$) != $'foo\nbar\nbam' ]] then err_exit "Output file pointer not shared correctly." fi cat > /tmp/foobar$$ <<\! print foo /bin/echo bar print bam ! chmod +x /tmp/foobar$$ if [[ $(/tmp/foobar$$) != $'foo\nbar\nbam' ]] then err_exit "Script not working." fi if [[ $(/tmp/foobar$$ | /bin/cat) != $'foo\nbar\nbam' ]] then err_exit "Script | cat not working." fi if [[ $( /tmp/foobar$$) != $'foo\nbar\nbam' ]] then err_exit "Output file pointer not shared correctly." fi rm -f /tmp/foobar$$ x=$( (print foo) ; (print bar) ) if [[ $x != $'foo\nbar' ]] then err_exit " ( (print foo);(print bar ) failed" fi x=$( (/bin/echo foo) ; (print bar) ) if [[ $x != $'foo\nbar' ]] then err_exit " ( (/bin/echo);(print bar ) failed" fi x=$( (/bin/echo foo) ; (/bin/echo bar) ) if [[ $x != $'foo\nbar' ]] then err_exit " ( (/bin/echo);(/bin/echo bar ) failed" fi cat > /tmp/ksh$$ <<\! if [[ -p /dev/fd/0 ]] then builtin cat cat - > /dev/null [[ -p /dev/fd/0 ]] && print ok else print no fi ! chmod +x /tmp/ksh$$ case $( (print) | /tmp/ksh$$;:) in ok) ;; no) err_exit "[[ -p /dev/fd/0 ]] fails for standard input pipe" ;; *) err_exit "builtin replaces standard input pipe" ;; esac print 'print $0' > /tmp/ksh$$ print ". /tmp/ksh$$" > /tmp/ksh$$x chmod +x /tmp/ksh$$x if [[ $(/tmp/ksh$$x) != /tmp/ksh$$x ]] then err_exit '$0 not correct for . script' fi rm -r /tmp/ksh$$ /tmp/ksh$$x mkdir /tmp/ksh$$ || err_exit "mkdir /tmp/ksh$$ failed" cd /tmp/ksh$$ || err_exit "cd /tmp/ksh$$ failed" print ./b > ./a; print ./c > b; print ./d > c; print ./e > d; print "echo \"hello there\"" > e chmod 755 a b c d e x=$(./a) if [[ $x != "hello there" ]] then err_exit "nested scripts failed" fi x=$( (./a) | cat) if [[ $x != "hello there" ]] then err_exit "scripts in subshells fail" fi cd ~- || err_exit "cd back failed" rm -r /tmp/ksh$$ || err_exit "rm -r /tmp/ksh$$ failed" x=$( (/bin/echo foo) 2> /dev/null ) if [[ $x != foo ]] then err_exit "subshell in command substitution fails" fi exec 1>&- x=$(print hello) if [[ $x != hello ]] then err_exit "command subsitution with stdout closed failed" fi cd $pwd x=$(cat <<\! | $SHELL /bin/echo | /bin/cat /bin/echo hello ! ) if [[ $x != $'\n'hello ]] then err_exit "$SHELL not working when standard input is a pipe" fi x=$( (/bin/echo hello) 2> /dev/null ) if [[ $x != hello ]] then err_exit "subshell in command substitution with 1 closed fails" fi cat > /tmp/ksh$$ <<- \! read line 2> /dev/null print done ! if [[ $($SHELL /tmp/ksh$$ <&-) != done ]] then err_exit "executing script with 0 closed fails" fi trap '' INT cat > /tmp/ksh$$ <<- \! trap 'print bad' INT kill -s INT $$ print good ! chmod +x /tmp/ksh$$ if [[ $($SHELL /tmp/ksh$$) != good ]] then err_exit "traps ignored by parent not ignored" fi trap - INT cat > /tmp/ksh$$ <<- \! read line /bin/cat ! if [[ $($SHELL /tmp/ksh$$ < /dev/null ) == $'foobar\nfoobar' ]] || err_exit 'for loop optimization subshell bug' command exec 3<> /dev/null if cat /dev/fd/3 >/dev/null 2>&1 then [[ $($SHELL -c 'cat <(print foo)' 2> /dev/null) == foo ]] || err_exit 'process substitution not working' [[ $($SHELL -c 'print $(cat <(print foo) )' 2> /dev/null) == foo ]] || err_exit 'process substitution in subshell not working' [[ $($SHELL -c $'tee >(grep \'1$\' > /tmp/ksh'$$'x) > /dev/null <<- \!!! line0 line1 line2 !!! wait cat /tmp/ksh'$$x 2> /dev/null) == line1 ]] || err_exit '>() process substitution fails' > /tmp/ksh$$x [[ $($SHELL -c $' for i in 1 do tee >(grep \'1$\' > /tmp/ksh'$$'x) > /dev/null <<- \!!! line0 line1 line2 !!! done wait cat /tmp/ksh'$$x 2>> /dev/null) == line1 ]] || err_exit '>() process substitution fails in for loop' [[ $({ $SHELL -c 'cat <(for i in x y z; do print $i; done)';} 2> /dev/null) == $'x\ny\nz' ]] || err_exit 'process substitution of compound commands not working' fi [[ $($SHELL -r 'command -p :' 2>&1) == *restricted* ]] || err_exit 'command -p not restricted' print cat > /tmp/ksh$$x chmod +x /tmp/ksh$$x [[ $($SHELL -c "print foo | /tmp/ksh$$x ;:" 2> /dev/null ) == foo ]] || err_exit 'piping into script fails' [[ $($SHELL -c 'X=1;print -r -- ${X:=$(expr "a(0)" : '"'a*(\([^)]\))')}'" 2> /dev/null) == 1 ]] || err_exit 'x=1;${x:=$(..."...")} failure' [[ $($SHELL -c 'print -r -- ${X:=$(expr "a(0)" : '"'a*(\([^)]\))')}'" 2> /dev/null) == 0 ]] || err_exit '${x:=$(..."...")} failure' if [[ -d /dev/fd && -w /dev/fd/3 ]] then [[ $(cat <(print hello) ) == hello ]] || err_exit "process substitution not working outside for or while loop" $SHELL -c '[[ $(for i in 1;do cat <(print hello);done ) == hello ]]' 2> /dev/null|| err_exit "process substitution not working in for or while loop" fi exec 3> /dev/null print 'print foo "$@"' > /tmp/ksh$$x [[ $( print "(/tmp/ksh$$x bar)" | $SHELL 2>/dev/null) == 'foo bar' ]] || err_exit 'script pipe to shell fails' print "#! $SHELL" > /tmp/ksh$$x print 'print -- $0' >> /tmp/ksh$$x chmod +x /tmp/ksh$$x [[ $(/tmp/ksh$$x) == /tmp/ksh$$x ]] || err_exit "\$0 is $0 instead of /tmp/ksh$$x" cat > /tmp/ksh$$x <<- \EOF myfilter() { x=$(print ok | cat); print -r -- $SECONDS;} set -o pipefail sleep 3 | myfilter EOF (( $($SHELL /tmp/ksh$$x) > 2.0 )) && err_exit 'command substitution causes pipefail option to hang' rm -f /tmp/ksh$$x exec 3<&- ( typeset -r foo=bar) 2> /dev/null || err_exit 'readonly variables set in a subshell cannot unset' exit $((Errors))