equal
deleted
inserted
replaced
54 function checkFails(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
54 function checkFails(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
55 begin |
55 begin |
56 if not Assert then |
56 if not Assert then |
57 begin |
57 begin |
58 lastConsoleLine:= Msg; |
58 lastConsoleLine:= Msg; |
59 OutError(Msg, false); |
59 OutError(Msg, isFatal); |
60 end; |
60 end; |
61 |
61 |
62 allOK:= allOK and (Assert or (not isFatal)); |
62 allOK:= allOK and (Assert or (not isFatal)); |
63 checkFails:= (not Assert) and isFatal |
63 checkFails:= (not Assert) and isFatal |
64 end; |
64 end; |