1# This file contains a top-level script to run all of the Tcl 2# tests. Execute it by invoking "source all" when running tclTest 3# in this directory. 4# 5# Copyright (c) 2000 Ajuba Solutions 6# 7# SCCS: @(#) all 1.8 97/08/01 11:07:14 8 9if {[lsearch [namespace children] ::tcltest] == -1} { 10 package require tcltest 11 namespace import ::tcltest::* 12} 13 14set ::tcltest::testSingleFile false 15set ::tcltest::testsDirectory [file dir [info script]] 16 17# ============================================== 18# Load all the prequisites into the interpreter. Ensure loading from 19# the current sources, not an installed SOAP. 20 21set srcdir [file dirname [file dirname [file normalize [info script]]]] 22 23package require tdom 24 25source $srcdir/rpcvar.tcl 26#source $srcdir/xpath.tcl 27source $srcdir/utils.tcl 28source $srcdir/SOAP.tcl ;# Implies SOAP::http 29source $srcdir/XMLRPC.tcl 30source $srcdir/SOAP-CGI.tcl 31 32unset srcdir 33 34# ============================================== 35 36puts *\t[join [info loaded] \n*\t] 37 38# source each of the specified tests 39foreach file [lsort [::tcltest::getMatchingFiles]] { 40 set tail [file tail $file] 41 puts stdout $tail 42 if {[catch {source $file} msg]} { 43 puts stdout $msg 44 } 45} 46 47# cleanup 48::tcltest::cleanupTests 1 49return 50