Heap Tests

Test/TestSignals.pas

@@ -0,0 +1,49 @@
+unit TestSignals;
+
+interface
+
+uses
+  DUnitX.TestFramework,
+  Myc.Atomic;
+
+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.