# all.tcl --
#
# This file contains a top-level script to run all of the Tcl
# tests.  Execute it by invoking "tclsh all.test".
#
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
# RCS: @(#) $Id$
# 

source [file join [file dir [info script]] loadtdom.tcl]

if {[info procs ::tdom::extRefHandler] != ""} {
    testConstraint need_uri 1
}

singleProcess 1
if {$tcl_version < 8.5} {
    # We still support 8.4 to some degree
    testsDirectory [file dirname [info script]]
} else {
    configure {*}$argv -testdir [file dirname [info script]]
}
runAllTests
# See http://mini.net/tcl/3248 for an explanation.
proc exit args {}

