texinfo/testsuite/config/unix.exp

   1 load_lib utils.exp   ;# Get the file of utilities for Texinfo tests
   2
   3 default MAKEINFO makeinfo      ;# ensure Tcl var MAKEINFO has value
   4
   5 #                                   Ensure we can execute this tool
   6 if [is_executable $MAKEINFO] then {
   7   verbose "$MAKEINFO is executable\n" 1
   8 } else {
   9   perror "$MAKEINFO: cannot execute\n"
  10   exit 1                      ;# no point in running any makeinfo tests
  11 }
  12
  13 # makeinfo_start undefined by choice;
  14 # 1) it makes it clearer where the output is to start
  15 # $MAKEINFO directly with `catch' from each test case,
  16 # and
  17 # 2) this takes no more lines than it would to call makeinfo_start
  18
  19 proc makeinfo_exit {} {}
  20
  21 proc makeinfo_version {} {
  22         global MAKEINFO
  23         set tmp [ exec $MAKEINFO --version ]
  24         regexp "version.*$" $tmp vn      ;# "vn" undef if pattern not found
  25         if [info exists vn] then {
  26                 clone_output "[which $MAKEINFO] $vn\n"
  27         }
  28 }
  29