DUnitテストを名前でプログラムで無効にする方法を教えてください。

Question

統合テストでは、サードパーティコンポーネント（メッセージブローカー）のすべてのバージョンで1回実行されるDUnitテストスイートを作成しました。残念なことに、一部のテストでは、テストされたコンポーネントの一部のバージョンで既知のバグがあるため、常に失敗します。

これは、テストスイートが100％で完了しないことを意味します。ただし、自動テストの場合は、100％の成功率が必要です。 DUnitは、名前でテストスイート内のテストを無効にする既製の方法を提供していません。

Answer 1

テストスイートとテスト名のリストを取得し、一致する名前のすべてのテストを無効にし、ネストされたテストスイートを再帰的に実行するプロシージャを作成しました。

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; 

使用例（TStringListの「除く」が、セットアップの方法で作成されます）：

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;