Здравствуйте, swame, Вы писали:
S>Мне ваш синтаксис вызова параметризованных методов понравился, но его можно воспроизвести оберткой над DUnit.
S>Думаю что такую как я понял из видео и понял смог бы за пару часов написать.
S>Когда работал c тестами тоже писал свои обертки удобные для моих случаев.
Смысл городить огород, на сколько я понял это уже есть, вот конструкция из примера в инете:
Это регистрация в определениях класса-обертки.
[Test]
[TestCase('TestA','1,2')]
[TestCase('TestB','3,4')]
Или можно сделать внутреннюю ф-ю в дюните, если нужны параметры, и не надо никаких 2-х часов, это делается 5 минут.
procedure TTestCalc.TestDivide;
procedure Check(iA,iB,iC:integer); begin
if divide(iA,iB)=iC then
Alert('Ok')
else
Alert('Error: '+inttostr(iA)+' div '+inttostr(iA)+' <> '+inttostr(iC));
end;
begin
Check(4,2,2);
Check(10,5,2);
Check(9,3,3);
Check(1,1,1);
end;
Дело ведь не в параметрах.
DUnit и TestMe-ON разный подход к наложению тестов.