Diff

Differences From Artifact [4b0e755a54]:

To Artifact [66316a28dd]:


37
38
39
40
41
42
43
44

37
38
39
40
41
42
43

44







-
+
	variable numTests
	set ::exitCode [expr {$numTests(Total) == 0 || $numTests(Failed) > 0}]
    }
    ::tcltest::runAllTests
}

#  Exit code: 0=all passed, 1=one or more failed
exit $::exitCode
return $::exitCode