TestMeType.pas - Примеры

IRegisterTestCode

Метод и ссылка на примерОписание
IRegisterLevelTestрегистрация уровня/группы модулей для тестирования
IRegisterApplicationрегистрация имени приложения которое будем тестировать
IRegisterUnitрегистрация модуля который будем тестировать
IRegisterClassРегистрация класса который будем тестировать
IRegisterMethodрегистрация метода для тестирования
IRegisterMethodParamsрегистрация параметров для тестирования метода
ISetDefaultIndUnitClassустановить текущими юнит и класс, для тестирования

IRegisterApplication

GetTestMe.ITestCode.IRegisterApplication('My Application','My new favorite program');

IRegisterUnit & IRegisterClass

if GetTestMe.bIsTestCode then begin
  with GetTestMe.ITestCode do begin
    L_pIndexUnit:=IRegisterUnit(ltComponents,'Calculator','unit Calculator components');
    L_pIndexTCalculate   := IRegisterClass(TCalc._RegisterMethod,TCalc._TestMethods,'TCalc','Class Calculater');
  end;
end else begin
  ShowMessage('Not find  TestMeDllxx.dll');
end;

IRegisterMethod & IRegisterMethodParams & ISetDefaultIndUnitClass

if GetTestMe.bIsTestCode then begin
  with GetTestMe.ITestCode do begin
   // Set position
   ISetDefaultIndUnitClass(L_pIndexTCalculate,L_pIndexUnit);
 
 // Create class for test
   IRegisterMethod(tmCreate,'tmCreate','Test Create component'
   ,pAddOneEmptyParam    // Auto add test parameter
    ,1);                 // First index test position
 
 // Free class
   IRegisterMethod(tmFree  ,'tmFree'  ,'Test Free component'
   ,pAddOneEmptyParam    // Auto add test parameter
   ,MAX_POS_TESTMETHOD); // Last index test position
 
 // Test methods
   IRegisterMethod(tmPlus  ,'tmPlus'  ,'Test Plus operation');
    IRegisterMethodParams([2,2],[4],'2+2=4');
    IRegisterMethodParams([5,5],[10],'5+5=10');
    IRegisterMethodParams([4,4],[4],'4+4=4 trError it''s Ok',trError);

IResultValue

         if L_oCalc.OpDiv(IMethod.IGetArrParam(1).AsInteger) = IMethod.IGetArrResultForTestMethod(0).AsInteger then
            result:=trOk
           else
            result:=trError;

IRunMethodParam