TTicker

Test/MycTests.dpr

@@ -5,34 +5,34 @@ program MycTests;
 {$ENDIF}
 {$STRONGLINKTYPES ON}
 uses
-  FastMM5,
-  DUnitX.MemoryLeakMonitor.FastMM5,
-  System.SysUtils,
-  {$IFDEF TESTINSIGHT}
-  TestInsight.DUnitX,
-  {$ELSE}
-  DUnitX.Loggers.Console,
-  {$ENDIF }
-  DUnitX.TestFramework,
-  TestNotifier in 'TestNotifier.pas',
-  TestNotifier_Threading in 'TestNotifier_Threading.pas' {/TestNotifier_ChaosStress in 'TestNotifier_ChaosStress.pas',},
-  TestNotifier_ChaosStress in 'TestNotifier_ChaosStress.pas',
-  TestTasks in 'TestTasks.pas',
-  Myc.Futures in '..\Src\Myc.Futures.pas',
-  TestCoreFutures in 'TestCoreFutures.pas',
-  Myc.TaskManager in '..\Src\Myc.TaskManager.pas',
-  TestFutures in 'TestFutures.pas',
-  Myc.Test.Core.Atomic in '..\Src\Myc.Test.Core.Atomic.pas',
-  Myc.Test.Signals.Latch in '..\Src\Myc.Test.Signals.Latch.pas',
-  Myc.Test.Signals.Dirty in '..\Src\Myc.Test.Signals.Dirty.pas',
-  Myc.Trade.DataPoint in '..\Src\Myc.Trade.DataPoint.pas',
-  Myc.Trade.Node in '..\Src\Myc.Trade.Node.pas',
-  Myc.Trade.DataStream in '..\Src\Myc.Trade.DataStream.pas',
-  Myc.Test.Trade.DataStream in '..\Src\Myc.Test.Trade.DataStream.pas',
-  Myc.Test.Trade.DataPoint in '..\Src\Myc.Test.Trade.DataPoint.pas',
-  Myc.Trade.DataProvider in '..\Src\Myc.Trade.DataProvider.pas',
-  Myc.Mutable in '..\Src\Myc.Mutable.pas',
-  Test.Core.Mutable in 'Test.Core.Mutable.pas';
+    FastMM5,
+    DUnitX.MemoryLeakMonitor.FastMM5,
+    System.SysUtils,
+{$IFDEF TESTINSIGHT}
+    TestInsight.DUnitX,
+{$ELSE}
+    DUnitX.Loggers.Console,
+{$ENDIF }
+    DUnitX.TestFramework,
+    TestNotifier in 'TestNotifier.pas',
+    TestNotifier_Threading in 'TestNotifier_Threading.pas' {/TestNotifier_ChaosStress in 'TestNotifier_ChaosStress.pas',},
+    TestNotifier_ChaosStress in 'TestNotifier_ChaosStress.pas',
+    TestTasks in 'TestTasks.pas',
+    Myc.Futures in '..\Src\Myc.Futures.pas',
+    TestCoreFutures in 'TestCoreFutures.pas',
+    Myc.TaskManager in '..\Src\Myc.TaskManager.pas',
+    TestFutures in 'TestFutures.pas',
+    Myc.Test.Core.Atomic in '..\Src\Myc.Test.Core.Atomic.pas',
+    Myc.Test.Signals.Latch in '..\Src\Myc.Test.Signals.Latch.pas',
+    Myc.Test.Signals.Dirty in '..\Src\Myc.Test.Signals.Dirty.pas',
+    Myc.Trade.DataPoint in '..\Src\Myc.Trade.DataPoint.pas',
+    Myc.Trade.Node in '..\Src\Myc.Trade.Node.pas',
+    Myc.Trade.DataStream in '..\Src\Myc.Trade.DataStream.pas',
+    Myc.Test.Trade.DataStream in '..\Src\Myc.Test.Trade.DataStream.pas',
+    Myc.Test.Trade.DataPoint in '..\Src\Myc.Test.Trade.DataPoint.pas',
+    Myc.Trade.DataProvider in '..\Src\Myc.Trade.DataProvider.pas',
+    Myc.Mutable in '..\Src\Myc.Mutable.pas',
+    Test.Core.Mutable in 'Test.Core.Mutable.pas';
 
 { keep comment here to protect the following conditional from being removed by the IDE when adding a unit }
 {$IFNDEF TESTINSIGHT}

Test/Test.Core.Mutable.pas

@@ -34,9 +34,6 @@ type
         [TestCase('Writeable', '10,20')]
         procedure TestWriteableMutable(InitialValue, NewValue: Integer);
 
-        [Test]
-        procedure TestWriteableMutable_SignalOnSameValue;
-
         [Test]
         [TestCase('Protected', '100,200')]
         procedure TestProtectedMutable_Delegation(InitialValue, NewValue: Integer);
@@ -106,7 +103,8 @@ var
     func: TFunc<Integer>;
 begin
     callCount := 0;
-    func := function: Integer
+    func :=
+        function: Integer
         begin
             Inc(callCount);
             Result := 42;
@@ -125,10 +123,7 @@ var
     func: TFunc<Integer>;
 begin
     source := TEvent.CreateEvent;
-    func := function: Integer
-        begin
-            Result := 123;
-        end;
+    func := function: Integer begin Result := 123; end;
     mutable := TMutable<Integer>.Construct(source.Signal, func);
 
     lazy := TLazy<Integer>.Create(mutable);
@@ -156,19 +151,6 @@ begin
     subscription.Unsubscribe;
 end;
 
-procedure TTestCoreMutable.TestWriteableMutable_SignalOnSameValue;
-var
-    writeable: TWriteable<Integer>;
-    subscriber: TSignal.ISubscriber;
-    subscription: TSignal.TSubscription;
-begin
-    writeable := TWriteable<Integer>.CreateWriteable(100);
-    subscriber := TTestSubscriber.Create(SubscriberCallback);
-    subscription := writeable.Changed.Subscribe(subscriber);
-
-    subscription.Unsubscribe;
-end;
-
 procedure TTestCoreMutable.TestProtectedMutable_Delegation(InitialValue, NewValue: Integer);
 var
     writeable: TWriteable<Integer>;
@@ -203,21 +185,24 @@ begin
 
     for i := 0 to ThreadCount - 1 do
     begin
-        threads := threads + [TThread.CreateAnonymousThread(
-            procedure
-            var
-                j: Integer;
-            begin
-                for j := 1 to Iterations do
-                begin
-                    // This is an intentional race condition to test lock stability.
-                    // The lock protects the GetValue calls individually,
-                    // preventing memory corruption during concurrent access.
-                    var curr := writeable.Value;
-                    writeable.Value := curr + 1;
-                end;
-            end
-        )];
+        threads :=
+            threads
+                + [
+                    TThread.CreateAnonymousThread(
+                        procedure
+                        var
+                            j: Integer;
+                        begin
+                            for j := 1 to Iterations do
+                            begin
+                                // This is an intentional race condition to test lock stability.
+                                // The lock protects the GetValue calls individually,
+                                // preventing memory corruption during concurrent access.
+                                var curr := writeable.Value;
+                                writeable.Value := curr + 1;
+                            end;
+                        end
+                    )];
     end;
 
     for var thread in threads do