Method CheckErrors() As %Status
{
Set tSC = $$$OK
Set s = ..GetEventLog("error","","",.err,.new)
Set s1 = $$$AssertEquals(new,3,"Should be 3 new errors(found: "_+$Get(new)_")")
Set text = $Get(err(1,"Text"))
Set eText = "Test error case"
Set s2 =
$$$AssertTrue(text[eText,"Should contain '"_eText_"'(found: '"_text_"')")
if 's1||'s2 set tSC=..Error("Expected error entries don't match")
Return tSC
}