atnode.exp

来自「gcc-2.95.3 Linux下最常用的C编译器」· EXP 代码 · 共 20 行

# Lessons:
# 1) may use \ to continue long lines
# 2) Careful in specifying string end on string match, to be sure
#    to exclude errors!  (cf output from nonsense.exp)

catch "exec $MAKEINFO -o ./atnode.info $srcdir/text/atnode.texi" maki_out

verbose "Makeinfo output: $maki_out" 1

setup_xfail "*-*-*"
if [string match                               \
	"Making*file*atnode*from*atnode.texi'." \
	"$maki_out"                            \
   ] then {
	pass "at sign in node name"
} else {
	fail "at sign in node name"
}
clear_xfail "*-*-*"