TaskManager refactoring

Test/TestTasks.pas

@@ -17,7 +17,7 @@ type
     [IgnoreMemoryLeaks(true)]
     TMycTaskFactoryTests = class(TObject)
     private
-        FFactory: IMycThreadPool;
+        FFactory: IThreadPool;
     public
         [Setup]
         procedure Setup;
@@ -27,12 +27,6 @@ type
         [Test]
         procedure TestFactoryCreationAndTeardown;
         [Test]
-        procedure TestCreateThreadExecutesAndSignals;
-        [Test]
-        procedure TestRunImmediateJob;
-        [Test]
-        procedure TestRunDelayedJobExecutesAfterAllNotifies;
-        [Test]
         procedure TestWaitForAlreadySetState;
         [Test]
         procedure TestThreadInfoMethods;
@@ -67,71 +61,6 @@ begin
     Assert.IsNotNull(FFactory, 'Factory should be created');
 end;
 
-procedure TMycTaskFactoryTests.TestCreateThreadExecutesAndSignals;
-var
-    executed: Boolean;
-    threadState: TState.IState;
-    procWrapper: TProc;
-begin
-    executed := False;
-    procWrapper := procedure begin executed := True; end;
-
-    threadState := FFactory.CreateThread(procWrapper); // CreateThread in TaskFactory now uses TMycLatch.CreateLatch
-    Assert.IsNotNull(threadState, 'CreateThread should return a valid state object');
-
-    FFactory.WaitFor(threadState);
-    Assert.IsTrue(executed, 'Procedure in created thread should have executed');
-end;
-
-procedure TMycTaskFactoryTests.TestRunImmediateJob;
-var
-    jobExecuted: Boolean;
-    jobCompletedLatch: TLatch.ILatch;
-begin
-    jobExecuted := False;
-    jobCompletedLatch := TLatch.CreateLatch(1); // Changed from Signals.CreateLatch
-
-    FFactory
-        .Run(
-            procedure
-            begin
-                jobExecuted := True;
-                jobCompletedLatch.Notify;
-            end)
-        .Notify;
-
-    FFactory.WaitFor(jobCompletedLatch.State);
-    Assert.IsTrue(jobExecuted, 'Immediate job should have executed');
-end;
-
-procedure TMycTaskFactoryTests.TestRunDelayedJobExecutesAfterAllNotifies;
-var
-    jobExecuted: Boolean;
-    jobCompletedLatch: TLatch.ILatch;
-    subscriber: TSignal.ISubscriber;
-begin
-    jobExecuted := False;
-    jobCompletedLatch := TLatch.CreateLatch(1); // Changed from Signals.CreateLatch
-
-    subscriber :=
-        FFactory.Run(
-            procedure
-            begin
-                jobExecuted := True;
-                jobCompletedLatch.Notify;
-            end
-        );
-
-    Assert.IsNotNull(subscriber, 'Run should return a subscriber for delayed job');
-    // Use TMycLatch.Null for comparison
-    Assert.AreNotEqual<TSignal.ISubscriber>(TLatch.Null, subscriber, 'Subscriber should not be TMycLatch.Null for StartCount > 0');
-
-    subscriber.Notify;
-
-    FFactory.WaitFor(jobCompletedLatch.State);
-    Assert.IsTrue(jobExecuted, 'Delayed job should execute after all notifications');
-end;
-
 procedure TMycTaskFactoryTests.TestWaitForAlreadySetState;
 var
     alreadySetLatch: TLatch.ILatch;