unit TestSignals;

interface

uses
  DUnitX.TestFramework,
  Myc.Signals;

type
  [TestFixture]
  TMycTest = class
  public
    [Setup]
    procedure Setup;
    [TearDown]
    procedure TearDown;
    // Sample Methods
    // Simple single Test
    [Test]
    procedure Test1;
    // Test with TestCase Attribute to supply parameters.
    [Test]
    [TestCase('TestA','1,2')]
    [TestCase('TestB','3,4')]
    procedure Test2(const AValue1 : Integer;const AValue2 : Integer);
  end;

implementation

procedure TMycTest.Setup;
begin
end;

procedure TMycTest.TearDown;
begin
end;

procedure TMycTest.Test1;
begin
end;

procedure TMycTest.Test2(const AValue1 : Integer;const AValue2 : Integer);
begin
end;

initialization
  TDUnitX.RegisterTestFixture(TMycTest);

end.