Как мне издеваться над TFDQuery, используя Delphi Mocks? - PullRequest
Новая
       20

Как мне издеваться над TFDQuery, используя Delphi Mocks?

0 голосов
/ 26 августа 2018

У меня есть модуль данных с некоторыми TFDQuery-компонентами и некоторыми процедурами / функциями, которые используют эти компоненты. Теперь я хочу протестировать эти функции / процедуры, используя DUNIT и delphi-mocks.

Простой случай: 

function Tdm.GetCompanyName (CompanyNo : Integer) : String ;
Begin
 sq_GetCompany.Close ;
 sq_GetCompany.ParamByName('CompanyNo').AsInteger:= CompanyNo ;
 sq_GetCompany.Open ;
 if not sq_GetCompany.Eof then
  Result:= sq_GetCompanyClientName.AsString
  else
  Result:= '' ;
 sq_GetCompany.Close ;
End ;

В этом случае меня интересует только то, что эта функция будет возвращать пустую строку, если запись не найдена, и что, если запись найдена, я должен получить строку взамен.

Я искал примеры, но не нашел ничего подобного, поэтому было бы здорово, если бы кто-нибудь мог объяснить это, используя мой пример.

...