TestCodeLevelUnits.pas

Это пользовательский набор, которые описывает программист, как ему удобно группировать модули

  type  // Max 250
    TLevelTestRun=(
                   ltSystem_Delphi   = 1  // системные Delphi файлы
                  ,ltLibrary_FibFast = 2  // Fibs, Jedi и тд
                  ,ltMyLib           = 3  // my libs
                  ,ltApplication     = 4  //  application
                  ,ltService         = 5  //  Service
                  ,ltLibrary         = 6  //  Library
                  ,ltComponents      = 7  // my components
 
                  ,ltTheEnd = 255
                  );

initialization
 
if GetTestMe.bIsTestCode then begin
  with GetTestMe.ITestCode do begin
     IRegisterLevelTest(ltSystem_Delphi,'ltSystem_Delphi','Delphi modules and components');
     IRegisterLevelTest(ltApplication,'ltApplication','Applications');
     IRegisterLevelTest(ltService,'ltService','Services');
     IRegisterLevelTest(ltLibrary,'ltLibrary','Library');
     IRegisterLevelTest(ltComponents,'ltComponents','Components');
  end;
end else begin
  //  MessageDlg('Error load TestMe',mtError,[mbOk], 0);//mrOK
end;