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