Как мне высмеять TFDQuery с помощью Delphi Mocks?

У меня есть datamodule с некоторыми компонентами 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 ;

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

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

unit-testing,delphi,mocking,delphi-mocks,

0

Ответов: 0

Как мне высмеять TFDQuery с помощью Delphi Mocks?

У меня есть datamodule с некоторыми компонентами 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 ;

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

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

00блок-тестирование, Дельфы, насмешливо, Дельфы-издевается,
Похожие вопросы