32 lines
855 B
Tcl
32 lines
855 B
Tcl
# all.tcl --
|
|
#
|
|
# This file contains a top-level script to run all of the Tcl
|
|
# tests. Execute it by invoking "source all.test" when running tcltest
|
|
# in this directory.
|
|
#
|
|
# Copyright (c) 1998-2000 by Ajuba Solutions
|
|
# All rights reserved.
|
|
|
|
if {"-testdir" ni $argv} {
|
|
lappend argv -testdir [file dir [info script]]
|
|
}
|
|
|
|
if {[namespace which -command memory] ne "" && "-loadfile" ni $argv} {
|
|
puts "Tests running in sub-interpreters of leaktest circuit"
|
|
# -loadfile overwrites -load, so save it for helper in ::env(TESTFLAGS):
|
|
if {![info exists ::env(TESTFLAGS)] && [llength $argv]} {
|
|
set ::env(TESTFLAGS) $argv
|
|
}
|
|
lappend argv -loadfile [file join [file dirname [info script]] helpers.tcl]
|
|
}
|
|
|
|
package prefer latest
|
|
|
|
package require Tcl 8.6-
|
|
package require tcltest 2.2
|
|
|
|
tcltest::configure {*}$argv
|
|
tcltest::runAllTests
|
|
|
|
return
|