bin/sh/t_here.sh

174 	atf_set "descr" "Tests for various end markers of here documents"
179 	for end in EOF 1 \! '$$$' "string " a\\\ a\\\ \   '&' '' ' ' '  ' \
183 		# check unquoted end markers
184 		case "${end}" in
187 	'x=$(cat << '"${end}${nl}text${nl}${end}${nl}"'); printf %s "$x"' 'text' 0
191 		# and quoted end markers
193 	'x=$(cat <<'"'${end}'${nl}text${nl}${end}${nl}"'); printf %s "$x"' 'text' 0
195 		# and see what happens if we encounter "almost" an end marker
196 		case "${#end}" in
199    'x=$(cat <<'"'${end}'${nl}text${nl}${end%?}${nl}${end}${nl}"'); printf %s "$x"' \
200 				"text ${end%?}" 0
202    'x=$(cat <<'"'${end}'${nl}text${nl}${end#?}${nl}${end}${nl}"'); printf %s "$x"' \
203 				"text ${end#?}" 0
205    'x=$(cat <<'"'${end}'${nl}text${nl}${end%?}+${nl}${end}${nl}"');printf %s "$x"' \
206 				"text ${end%?}+" 0
212    'x=$(cat <<'"'${end}'${nl}text${nl}${end}x${nl}${end}${nl}"'); printf %s "$x"' \
213 				"text ${end}x" 0
215     'x=$(cat <<'"'${end}'${nl}text${nl}!${end}${nl}${end}${nl}"'); printf %s "$x"' \
216 				"text !${end}" 0
220     'x=$(cat <<'"'${end}'${nl}text${nl} ${end}${nl}${end}${nl}"'); printf %s "$x"' \
221 				"text  ${end}" 0
223     'x=$(cat <<'"'${end}'${nl}text${nl}	${end}${nl}${end}${nl}"'); printf %s "$x"' \
224 				"text 	${end}" 0
226 		# or end at end of line
228     'x=$(cat <<'"'${end}'${nl}text${nl}${end} ${nl}${end}${nl}"'); printf %s "$x"' \
229 				"text ${end} " 0
233 		case "${#end}" in
236     'x=$(cat <<'"'${end}'${nl}text${nl}${end}${end}${nl}${end}${nl}"'); printf %s "$x"' \
237 				"text ${end}${end}" 0
239 		(2-7)	pfx="${end%?}"
241     'x=$(cat <<'"'${end}'${nl}text${nl}${end}${pfx}${nl}${end}${nl}"'); printf %s "$x"' \
242 				"text ${end}${pfx}" 0
244     'x=$(cat <<'"'${end}'${nl}text${nl}${pfx}${end}${nl}${end}${nl}"'); printf %s "$x"' \
245 				"text ${pfx}${end}" 0
247 		(*)	pfx=${end%??????}; sfx=${end#??????}
249     'x=$(cat <<'"'${end}'${nl}text${nl}${end}${sfx}${nl}${end}${nl}"'); printf %s "$x"' \
250 				"text ${end}${sfx}" 0
252     'x=$(cat <<'"'${end}'${nl}text${nl}${pfx}${end}${nl}${end}${nl}"'); printf %s "$x"' \
253 				"text ${pfx}${end}" 0
255     'x=$(cat <<'"'${end}'${nl}text${nl}${pfx}${sfx}${nl}${end}${nl}"'); printf %s "$x"' \
558 	atf_add_test_case incomplete	# where the end marker isn't...