Made TestName compatible with DUnit - fixes #299

Author: vincentparrett

Source/DUnitX.DUnitCompatibility.pas

@@ -45,7 +45,7 @@   TTestCase = class
   protected
     procedure SetUp; virtual;
     procedure TearDown; virtual;
-    function TestName : string;
+    function GetName : string;
   public
     procedure Check(const condition: Boolean; const msg: string = '');deprecated  'Use DUnitX.Assert class';
     procedure CheckTrue(const condition: Boolean; const msg: string = '');deprecated  'Use DUnitX.Assert class';
@@ -106,6 +106,7 @@   TTestCase = class
     procedure TestSetupMethod;
     [TearDown]
     procedure TestTeardownMethod;
+    property Name:    string  read GetName;
   end;
 
 
@@ -154,7 +155,7 @@ procedure TTestCase.CheckTrue(const condition: Boolean; const msg: string);
   Assert.IsTrue(condition,msg);
 end;
 
-function TTestCase.TestName: string;
+function TTestCase.GetName: string;
 begin
   result := TDUnitXTestRunner.GetCurrentTestName;
 end;

Tests/DUnitX.Tests.DUnitCompatibility.pas

@@ -87,8 +87,8 @@ procedure TMyDUnitTestSetup.TearDown;
 
 procedure TMyDUnitTestSetup.Test_TestName;
 begin
-  Status('The Test Name is : ' + Self.TestName);
-  CheckEqualsString('Test_TestName', Self.TestName,'TestName not working');
+  Status('The Test Name is : ' + Self.Name);
+  CheckEqualsString('Test_TestName', Self.Name,'Test Name not working');
 end;
 
 initialization