| aPiecek | 266ca76 | 2023-03-22 15:04:59 +0100 | [diff] [blame] | 1 | package 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. | ||||
| 5 | proc tcltest::cleanupTestsHook {} { | ||||
| 6 | variable numTests | ||||
| 7 | set ::exitCode [expr {$numTests(Failed) > 0}] | ||||
| 8 | } | ||||
| 9 | |||||
| 10 | if {[info exists ::env(TESTS_DIR)]} { | ||||
| 11 | tcltest::configure -testdir "$env(TESTS_DIR)/interactive" | ||||
| 12 | } | ||||
| 13 | |||||
| 14 | tcltest::runAllTests | ||||
| 15 | exit $exitCode | ||||