TCL xUnit Mocking Framework