32 lines
1.0 KiB
Tcl
32 lines
1.0 KiB
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-1999 by Scriptics Corporation.
|
||
|
|
# Copyright (c) 2000 by Ajuba Solutions
|
||
|
|
#
|
||
|
|
# See the file "license.terms" for information on usage and redistribution
|
||
|
|
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||
|
|
|
||
|
|
package require Tcl 8.5-
|
||
|
|
package require tcltest 2.5
|
||
|
|
namespace import ::tcltest::*
|
||
|
|
|
||
|
|
configure {*}$argv -testdir [file dirname [file dirname [file normalize [
|
||
|
|
info script]/...]]]
|
||
|
|
|
||
|
|
if {[singleProcess]} {
|
||
|
|
interp debug {} -frame 1
|
||
|
|
}
|
||
|
|
|
||
|
|
set ErrorOnFailures [info exists env(ERROR_ON_FAILURES)]
|
||
|
|
unset -nocomplain env(ERROR_ON_FAILURES)
|
||
|
|
if {[runAllTests] && $ErrorOnFailures} {exit 1}
|
||
|
|
# if calling direct only (avoid rewrite exit if inlined or interactive):
|
||
|
|
if { [info exists ::argv0] && [file tail $::argv0] eq [file tail [info script]]
|
||
|
|
&& !([info exists ::tcl_interactive] && $::tcl_interactive)
|
||
|
|
} {
|
||
|
|
proc exit args {}
|
||
|
|
}
|