TMutable
This commit is contained in:
@@ -9,7 +9,7 @@ uses
|
||||
|
||||
type
|
||||
// Helper class to mock a subscriber (reuse or redefine if not in common unit)
|
||||
TMockSubscriber = class(TInterfacedObject, IMycSubscriber)
|
||||
TMockSubscriber = class(TInterfacedObject, TSignal.ISubscriber)
|
||||
public
|
||||
NotifyCount: Integer;
|
||||
NotifyShouldReturn: Boolean;
|
||||
@@ -17,7 +17,7 @@ type
|
||||
LastReturnedValueFromSource: Boolean; // To store what the source's Notify returned
|
||||
|
||||
constructor Create(AShouldReturn: Boolean = True);
|
||||
function Notify: Boolean; // IMycSubscriber implementation.
|
||||
function Notify: Boolean; // TSignal.ISubscriber implementation.
|
||||
end;
|
||||
|
||||
[TestFixture]
|
||||
@@ -164,7 +164,7 @@ var
|
||||
begin
|
||||
dirtyFlag := CreateAndPrepareDirtyFlag(False); // Start clean
|
||||
|
||||
notifyResult := dirtyFlag.Notify; // Call IMycSubscriber.Notify to make it dirty
|
||||
notifyResult := dirtyFlag.Notify; // Call TSignal.ISubscriber.Notify to make it dirty
|
||||
|
||||
Assert.IsTrue(dirtyFlag.State.IsSet, 'Flag should be dirty (IsSet) after Notify on clean flag.');
|
||||
Assert.IsTrue(notifyResult, 'Notify() should return True indicating a state change from clean to dirty.');
|
||||
@@ -177,7 +177,7 @@ var
|
||||
begin
|
||||
dirtyFlag := CreateAndPrepareDirtyFlag(True); // Start dirty
|
||||
|
||||
notifyResult := dirtyFlag.Notify; // Call IMycSubscriber.Notify again
|
||||
notifyResult := dirtyFlag.Notify; // Call TSignal.ISubscriber.Notify again
|
||||
|
||||
Assert.IsTrue(dirtyFlag.State.IsSet, 'Flag should remain dirty (IsSet).');
|
||||
Assert.IsFalse(notifyResult, 'Notify() should return False as flag was already dirty (no state change to dirty).');
|
||||
@@ -303,7 +303,7 @@ begin
|
||||
end;
|
||||
|
||||
// Category 3: Chaining Dirty Flags
|
||||
// In these tests, FlagX.Notify means calling the IMycSubscriber.Notify method on FlagX.
|
||||
// In these tests, FlagX.Notify means calling the TSignal.ISubscriber.Notify method on FlagX.
|
||||
// This makes FlagX dirty and potentially notifies its subscribers (like FlagY).
|
||||
|
||||
procedure TTestMycDirtyFlag.TestChain_A_Notifies_B_SimplePropagation;
|
||||
|
||||
Reference in New Issue
Block a user