Minot change to allow run filter option to work with testcase methods

Author: vincentparrett

Source/DUnitX.Extensibility.pas

@@ -76,6 +76,7 @@ interface
     procedure SetMaxTime(const AValue: cardinal);
     function GetTimedOut: Boolean;
     procedure SetTimedOut(const AValue: Boolean);
+    function GetIsTestCase : boolean;
 
     property Name : string read GetName;
     property FullName : string read GetFullName;
@@ -85,6 +86,7 @@ interface
     property Fixture : ITestFixture read GetTestFixture;
     property Ignored : boolean read GetIgnored;
     property IgnoreReason : string read GetIgnoreReason;
+    property IsTestCase : boolean read GetIsTestCase;
     property TestMethod : TTestMethod read GetTestMethod;
     property IgnoreMemoryLeaks : Boolean read GetIgnoreMemoryLeaks write SetIgnoreMemoryLeaks;
     property MaxTime: cardinal read GetMaxTime write SetMaxTime;

Source/DUnitX.Filters.pas

@@ -297,6 +297,9 @@ function TNameFilter.Match(const test: ITest): Boolean;
 
   if not result then
     result := FNames.IndexOf(test.FullName) <> -1;
+  //hacky way to allow filtering on test cases.
+  if (not result) and test.IsTestCase then
+    result := FNames.IndexOf(test.MethodName) <> -1;
 end;
 
 { TAndFilter }

Source/DUnitX.Test.pas

@@ -83,6 +83,8 @@   TDUnitXTest = class(TWeakReferencedObject, ITest, ITestInfo, ISetTestResult, I
     procedure SetMaxTime(const AValue: cardinal);
     function GetTimedOut: Boolean;
     procedure SetTimedOut(const AValue: Boolean);
+    function GetIsTestCase : boolean;virtual;
+
 
     //ITestInfo
     function GetActive : boolean;
@@ -128,6 +130,7 @@   TDUnitXTestCase = class(TDUnitXTest, ITestExecute)
     FRttiMethod : TRttiMethod;
     FInstance : TObject;
   protected
+    function GetIsTestCase : boolean;override;
     function GetName: string; override;
     procedure Execute(const context : ITestExecuteContext); override;
     procedure UpdateInstance(const fixtureInstance : TObject);override;
@@ -246,6 +249,11 @@ function TDUnitXTest.GetIgnoreReason: string;
   result := FIgnoreReason;
 end;
 
+function TDUnitXTest.GetIsTestCase: boolean;
+begin
+  result := false;
+end;
+
 function TDUnitXTest.GetMethodName: string;
 begin
   result := FMethodName;
@@ -384,6 +392,11 @@ procedure TDUnitXTestCase.Execute(const context : ITestExecuteContext);
   end;
 end;
 
+function TDUnitXTestCase.GetIsTestCase: boolean;
+begin
+  result := true;
+end;
+
 function TDUnitXTestCase.GetName: string;
 begin
   if FCaseName <> '' then