DUnit 테스트를 프로그래밍 방식으로 이름별로 비활성화하려면 어떻게합니까?

Question

통합 테스트를 위해 제 3 자 구성 요소 (메시지 브로커)의 모든 버전에 대해 한 번 실행되는 DUnit 테스트 슈트를 만들었습니다. 불행히도 일부 테스트는 테스트 된 구성 요소의 일부 버전에서 알려진 버그로 인해 항상 실패합니다.

즉, 테스트 스위트는 100 %로 완료되지 않습니다. 그러나 자동화 된 테스트의 경우 100 % 성공 점수가 필요합니다. DUnit은 이름으로 테스트 스위트에서 테스트를 비활성화하는 기성의 방법을 제공하지 않습니다.

Answer 1

테스트 스위트와 테스트 이름 목록을 취하고 일치하는 이름으로 모든 테스트를 비활성화하며 중첩 된 테스트 스위트로 재귀를 수행하는 절차를 작성했습니다. 합니다 (TStringList를 '제외'를 설치 방법에 생성됩니다)

procedure DisableTests(const ATest: ITest; const AExclude: TStrings); 
var 
    I: Integer; 
begin 
    if AExclude.IndexOf(ATest.Name) <> -1 then 
    begin 
    ATest.Enabled := False; 
    end; 
    for I := 0 to ATest.Tests.Count - 1 do 
    begin 
    DisableTests(ATest.Tests[I] as ITest, AExclude); 
    end 
end; 

사용 예제 :

procedure TSuiteVersion1beta2.SetUp; 
begin 
    // fill test suite 
    inherited; 

    // exclude some tests because they will fail anyway 
    Excludes.Add('TestA'); 
    Excludes.Add('TestB'); 

    DisableTests(Self, Excludes); 
end;