From 0a8934edff5533fbcb9d272e39a6013759aa4dad Mon Sep 17 00:00:00 2001
From: Joachim Marder <joachim.marder@outlook.com>
Date: Sun, 22 Sep 2024 18:48:16 +0200
Subject: [PATCH] Fixed test project and added it to group.

---
 Tests/Tests.dpr                        |  1 +
 Tests/VTWorkerThreadIssue1001Tests.pas |  2 +-
 VirtualTreesDevelopment.groupproj      | 18 +++++++++++++++---
 3 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/Tests/Tests.dpr b/Tests/Tests.dpr
index 28b47ba4a..a396ed931 100644
--- a/Tests/Tests.dpr
+++ b/Tests/Tests.dpr
@@ -26,6 +26,7 @@ begin
   exit;
 {$ENDIF}
   try
+    TDUnitX.Options.ExitBehavior := TDUnitXExitBehavior.Pause;
     //Check command line options, will exit if invalid
     TDUnitX.CheckCommandLine;
     //Create the test runner
diff --git a/Tests/VTWorkerThreadIssue1001Tests.pas b/Tests/VTWorkerThreadIssue1001Tests.pas
index 6f979e0e3..04142fc04 100644
--- a/Tests/VTWorkerThreadIssue1001Tests.pas
+++ b/Tests/VTWorkerThreadIssue1001Tests.pas
@@ -9,7 +9,7 @@ interface
   VirtualTrees;
 
 type
-  TTestBaseVirtualTree = class(TBaseVirtualTree)
+  TTestBaseVirtualTree = class(TVTAncestor)
   public
     property OnCompareNodes;
   end;
diff --git a/VirtualTreesDevelopment.groupproj b/VirtualTreesDevelopment.groupproj
index 1b49a28b5..dffa2f549 100644
--- a/VirtualTreesDevelopment.groupproj
+++ b/VirtualTreesDevelopment.groupproj
@@ -24,6 +24,9 @@
         <Projects Include="Demos\OLE\OLE.dproj">
             <Dependencies/>
         </Projects>
+        <Projects Include="Tests\Tests.dproj">
+            <Dependencies/>
+        </Projects>
     </ItemGroup>
     <ProjectExtensions>
         <Borland.Personality>Default.Personality.12</Borland.Personality>
@@ -95,14 +98,23 @@
     <Target Name="OLE:Make">
         <MSBuild Projects="Demos\OLE\OLE.dproj" Targets="Make"/>
     </Target>
+    <Target Name="Tests">
+        <MSBuild Projects="Tests\Tests.dproj"/>
+    </Target>
+    <Target Name="Tests:Clean">
+        <MSBuild Projects="Tests\Tests.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="Tests:Make">
+        <MSBuild Projects="Tests\Tests.dproj" Targets="Make"/>
+    </Target>
     <Target Name="Build">
-        <CallTarget Targets="Advanced;VirtualTreesR;VirtualTreesD;charityevents;Minimal;MVCDemo;OLE"/>
+        <CallTarget Targets="Advanced;VirtualTreesR;VirtualTreesD;charityevents;Minimal;MVCDemo;OLE;Tests"/>
     </Target>
     <Target Name="Clean">
-        <CallTarget Targets="Advanced:Clean;VirtualTreesR:Clean;VirtualTreesD:Clean;charityevents:Clean;Minimal:Clean;MVCDemo:Clean;OLE:Clean"/>
+        <CallTarget Targets="Advanced:Clean;VirtualTreesR:Clean;VirtualTreesD:Clean;charityevents:Clean;Minimal:Clean;MVCDemo:Clean;OLE:Clean;Tests:Clean"/>
     </Target>
     <Target Name="Make">
-        <CallTarget Targets="Advanced:Make;VirtualTreesR:Make;VirtualTreesD:Make;charityevents:Make;Minimal:Make;MVCDemo:Make;OLE:Make"/>
+        <CallTarget Targets="Advanced:Make;VirtualTreesR:Make;VirtualTreesD:Make;charityevents:Make;Minimal:Make;MVCDemo:Make;OLE:Make;Tests:Make"/>
     </Target>
     <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
 </Project>