У меня есть 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,
У меня есть 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блок-тестирование, Дельфы, насмешливо, Дельфы-издевается,