>>394
無茶苦茶簡単ですが？
サンプルに以下のコード追加したら普通に動きましたよ
Del6Personalで確認

unit testDUnit;

interface

...

function Plus(a, b: Integer): Integer;
function Minus(a, b: Integer): Integer;

type
TMyTest = class(TTest)
published
procedure testPlus;
end;

implementation

...

function Plus(a, b: Integer): Integer;
begin
Result := a + b;
end;

function Minus(a, b: Integer): Integer;
begin
Result := a * b; // バグ有り
end;

procedure TMyTest.testPlus;
begin
Test(Plus(1,2), 3, 'Plus1');
Test(Plus(1,-2), -1, 'Plus2');
Test(Minus(4,2), 2, 'Minus'); // バグ有り
end;

initialization
TestSuite.Add(TTestTest, [TTestNone, TTestSuccess, TTestFailure, TTestError, TTestException, TTestProfile, TTestExecute
,TMyTest]); // <-追加
end.

エラーレポート
Test failed - Minus
TestName: TMyTest
Type: Integer
Actual: 8
Expected: 2