blob: f00563f15fe0237ac38a6c5d4f7b68676412a23f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
package require tcltest
# Hook to determine if any of the tests failed.
# Sets a global variable exitCode to 1 if any test fails otherwise it is set to 0.
proc tcltest::cleanupTestsHook {} {
variable numTests
set ::exitCode [expr {$numTests(Failed) > 0}]
}
if {[info exists ::env(TESTS_DIR)]} {
tcltest::configure -testdir "$env(TESTS_DIR)"
}
tcltest::runAllTests
exit $exitCode
|
