equal
deleted
inserted
replaced
52 end; |
52 end; |
53 |
53 |
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 |
|
58 lastConsoleLine:= Msg; |
57 OutError(Msg, false); |
59 OutError(Msg, false); |
|
60 end; |
58 |
61 |
59 allOK:= allOK and (Assert or (not isFatal)); |
62 allOK:= allOK and (Assert or (not isFatal)); |
60 checkFails:= (not Assert) and isFatal |
63 checkFails:= (not Assert) and isFatal |
61 end; |
64 end; |
62 |
65 |