Indy/Test/TestDUnit/IdTest.pas

unit IdTest;

//provides adapter from Indy tests to the delphi DUnit test framework
//http://dunit.sourceforge.net

interface

uses
  TestFramework;

type
  
  TIdTest = class(TTestCase)
  public
    procedure OutputLn(const AString: string);
    class procedure RegisterTest(const aClass:TTestCaseClass);
  end;

implementation

class procedure TIdTest.RegisterTest(const aClass:TTestCaseClass);
begin
 TestFramework.RegisterTest('Indy',TTestSuite.Create(aClass));
end;

procedure TIdTest.OutputLn(const AString: string);
begin
 // TODO:
end;

end.