load_lib utils.exp   ;# Get the file of utilities for Texinfo testsdefault MAKEINFO makeinfo      ;# ensure Tcl var MAKEINFO has value#                                   Ensure we can execute this toolif [is_executable $MAKEINFO] then {  verbose "$MAKEINFO is executable\n" 1} else {  perror "$MAKEINFO: cannot execute\n"  exit 1                      ;# no point in running any makeinfo tests}# makeinfo_start undefined by choice; # 1) it makes it clearer where the output is to start# $MAKEINFO directly with `catch' from each test case,# and # 2) this takes no more lines than it would to call makeinfo_startproc makeinfo_exit {} {}proc makeinfo_version {} {	global MAKEINFO	set tmp [ exec $MAKEINFO --version ]	regexp "version.*$" $tmp vn      ;# "vn" undef if pattern not found	if [info exists vn] then {		clone_output "[which $MAKEINFO] $vn\n"	}}