[thirdparty/bash.git] / tests / redir5.sub

# tests of ksh93-like dup-and-close redirection operators
exec 9<$0

f()
{
exec 5<$0

exec 0<&5-

while read line; do
	echo "$line"
done
}

f

typeset -f f

# make sure it was closed
read -u 5 foo
echo after read

exec 5<&0

exec <&-

read abcde

exec 0<&9-
read line
echo $line
Commit	Line	Data
7117c2d2 JA	1	# tests of ksh93-like dup-and-close redirection operators
	2	exec 9<$0
	3
	4	f()
	5	{
	6	exec 5<$0
	7
	8	exec 0<&5-
	9
	10	while read line; do
	11	echo "$line"
	12	done
	13	}
	14
	15	f
	16
	17	typeset -f f
	18
	19	# make sure it was closed
	20	read -u 5 foo
	21	echo after read
	22
	23	exec 5<&0
	24
	25	exec <&-
	26
	27	read abcde
	28
	29	exec 0<&9-
	30	read line
	31	echo $line