среда, 30 декабря 2015 г.

Exception при failed в тесте DUnit

С удивлением обнаружил Exception при failed в тесте DUnit.

То есть в коде:

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 - за это руки надо по локоть обрубать. СРАЗУ.

1 комментарий:

  1. ЕСТЕСТВЕННО!! RTFM

    А Create Free без TRY..FINALLY - за это руки надо по локоть обрубать. СРАЗУ.

    ОтветитьУдалить