TaskManager.RunTask() & TFuture.Chain(Proc)

Test/TestCoreFutures.pas

@@ -27,7 +27,7 @@ type
     [IgnoreMemoryLeaks(true)]
     TTestMycGateFuncFuture = class(TObject)
     private
-        FTaskFactory: IMycTaskFactory;
+        FTaskFactory: IMycThreadPool;
         FProcExecutionCount: Integer; // Counter for side effects of AProc
         FSharedCounter: Integer; // For Fan-Out test side effects
     public
@@ -156,7 +156,7 @@ end;
 procedure TTestMycGateFuncFuture.Test_ExceptionInProc_HandledAsPlanned;
 var
     LFuture: TFuture<Integer>.IFuture;
-    LLocalTaskFactory: IMycTaskFactory;
+    LLocalTaskFactory: IMycThreadPool;
     LInitStateAsState: TState.IState;
     LResultValue: Integer;
     LExpectedExceptionRaisedByFactory: Boolean;

Test/TestTasks.pas

@@ -17,7 +17,7 @@ type
     [IgnoreMemoryLeaks(true)]
     TMycTaskFactoryTests = class(TObject)
     private
-        FFactory: IMycTaskFactory;
+        FFactory: IMycThreadPool;
     public
         [Setup]
         procedure Setup;