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