Michael Schimmel
49 lines
798 B
ObjectPascal
49 lines
798 B
ObjectPascal
unit TestSignals;
|
|
|
|
interface
|
|
|
|
uses
|
|
DUnitX.TestFramework;
|
|
|
|
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.
|