Moved signal interfaces inside records

Test/TestTasks.pas

@@ -70,7 +70,7 @@ end;
 procedure TMycTaskFactoryTests.TestCreateThreadExecutesAndSignals;
 var
     executed: Boolean;
-    threadState: IMycState;
+    threadState: TState.IState;
     procWrapper: TProc;
 begin
     executed := False;
@@ -86,7 +86,7 @@ end;
 procedure TMycTaskFactoryTests.TestRunImmediateJob;
 var
     jobExecuted: Boolean;
-    jobCompletedLatch: IMycLatch;
+    jobCompletedLatch: TLatch.ILatch;
 begin
     jobExecuted := False;
     jobCompletedLatch := TLatch.CreateLatch(1); // Changed from Signals.CreateLatch
@@ -107,7 +107,7 @@ end;
 procedure TMycTaskFactoryTests.TestRunDelayedJobExecutesAfterAllNotifies;
 var
     jobExecuted: Boolean;
-    jobCompletedLatch: IMycLatch;
+    jobCompletedLatch: TLatch.ILatch;
     subscriber: IMycSubscriber;
 begin
     jobExecuted := False;
@@ -134,7 +134,7 @@ end;
 
 procedure TMycTaskFactoryTests.TestWaitForAlreadySetState;
 var
-    alreadySetLatch: IMycLatch;
+    alreadySetLatch: TLatch.ILatch;
     startTime, endTime: Cardinal;
 begin
     // TMycLatch.CreateLatch(0) will return TMycLatch.Null
@@ -152,7 +152,7 @@ procedure TMycTaskFactoryTests.TestThreadInfoMethods;
 var
     inMainThreadInJob: Boolean;
     inWorkerThreadInJob: Boolean;
-    jobDoneLatch: IMycLatch;
+    jobDoneLatch: TLatch.ILatch;
 begin
     inMainThreadInJob := True;
     inWorkerThreadInJob := False;
@@ -178,7 +178,7 @@ end;
 
 procedure TMycTaskFactoryTests.TestExceptionPropagationFromJob;
 var
-    jobDoneLatch: IMycLatch;
+    jobDoneLatch: TLatch.ILatch;
 begin
     jobDoneLatch := TLatch.CreateLatch(1);
 
@@ -222,8 +222,8 @@ end;
 procedure TMycTaskFactoryTests.TestWaitForInWorkerThreadRaisesException;
 var
     exceptionCaughtInJob: Boolean;
-    jobDoneLatch: IMycLatch;
-    dummyStateToWaitFor: IMycState;
+    jobDoneLatch: TLatch.ILatch;
+    dummyStateToWaitFor: TState.IState;
 begin
     exceptionCaughtInJob := False;
     jobDoneLatch := TLatch.CreateLatch(1);