С удивлением обнаружил Exception при failed в тесте DUnit.
То есть в коде:
Exception формирует сам DUnit. Детали напишу позже.
-----------------------
ЕСТЕСТВЕННО!! RTFM
А Create Free без TRY..FINALLY - за это руки надо по локоть обрубать. СРАЗУ.
То есть в коде:
procedure TestTParser.TestCreate;
var
l_Parser : TScriptParser;
begin
l_Parser := TScriptParser.Create('Test_4_1.txt');
CheckFalse(l_Parser.EOF); // Если это условие не выполнится
FreeAndNil(l_Parser); // сюда мы не попадем
end;
Exception формирует сам DUnit. Детали напишу позже.
-----------------------
ЕСТЕСТВЕННО!! RTFM
А Create Free без TRY..FINALLY - за это руки надо по локоть обрубать. СРАЗУ.
ЕСТЕСТВЕННО!! RTFM
ОтветитьУдалитьА Create Free без TRY..FINALLY - за это руки надо по локоть обрубать. СРАЗУ.