aboutsummaryrefslogtreecommitdiff
path: root/texinfo/testsuite/lib/utils.exp
diff options
context:
space:
mode:
Diffstat (limited to 'texinfo/testsuite/lib/utils.exp')
-rw-r--r--texinfo/testsuite/lib/utils.exp31
1 files changed, 0 insertions, 31 deletions
diff --git a/texinfo/testsuite/lib/utils.exp b/texinfo/testsuite/lib/utils.exp
deleted file mode 100644
index 713e9f2332a..00000000000
--- a/texinfo/testsuite/lib/utils.exp
+++ /dev/null
@@ -1,31 +0,0 @@
-# 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
- }
-}