xapian-bindings/tcl8/runtest.tcl

   1 # Allow a tcl script to be run against an uninstalled libtool-built tcl module
   2 #
   3 # Copyright (C) 2006,2007 Olly Betts
   4 #
   5 # This program is free software; you can redistribute it and/or
   6 # modify it under the terms of the GNU General Public License as
   7 # published by the Free Software Foundation; either version 2 of the
   8 # License, or (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program; if not, write to the Free Software
  17 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301
  18 # USA
  19
  20 # Syntax: runtest.tcl SCRIPT.TCL [ARGS]
  21
  22 # We need at least Tcl version 8
  23 package require Tcl 8
  24
  25 lappend auto_path "."
  26
  27 set argv0 [lindex $argv 0]
  28 set argv [lrange $argv 1 end]
  29 exit [expr [source $argv0] +0]