1 files changed, 31 insertions, 0 deletions
diff --git a/texinfo/testsuite/lib/utils.exp b/texinfo/testsuite/lib/utils.exp
new file mode 100644
index 00000000000..713e9f2332a
--- /dev/null
+++ b/texinfo/testsuite/lib/utils.exp
@@ -0,0 +1,31 @@
+# utils.exp, a collection of Tcl/Expect utilities for texinfo tests.
+
+# ----------default--------------------------------------------
+#  default VAR VALUE
+#          Check whether VAR exists and has a nonempty value; 
+#          if not, use VALUE as the default
+# -------------------------------------------------------------
+proc default {varname varval} {
+  upvar $varname outervar
+  if { ![info exists outervar] || [string match {} $outervar] } then {
+    verbose "Defaulting $varname to $varval\n" 1
+    set outervar $varval
+  } else {
+    verbose "$varname retains existing value $outervar\n" 1
+  }
+  return 
+}
+
+
+# ----------is_executable--------------------------------------
+#  is_executable NAME
+#          Boolean predicate: is NAME an executable file 
+#            somewhere on our PATH?
+# -------------------------------------------------------------
+proc is_executable {name} {
+  if [ file executable [which $name] ] then {
+    return 1
+  } else {
+    return 0
+  }
+}