Initial revision

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@14877 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 29 insertions, 0 deletions

diff --git a/texinfo/testsuite/config/unix.exp b/texinfo/testsuite/config/unix.exp
new file mode 100644
index 00000000000..12b38ba0ec6
--- /dev/null
+++ b/texinfo/testsuite/config/unix.exp
@@ -0,0 +1,29 @@
+load_lib utils.exp   ;# Get the file of utilities for Texinfo tests
+
+default MAKEINFO makeinfo      ;# ensure Tcl var MAKEINFO has value
+
+#                                   Ensure we can execute this tool
+if [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_start
+
+proc 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"
+	}
+}
+