Test Refactoring of signals
This commit is contained in:
@@ -12,7 +12,7 @@ type
|
||||
[TestFixture]
|
||||
TTestMyLazy = class(TObject)
|
||||
private
|
||||
FChangingSignal: IMycDirty; // Used as the 'Changing' state for functional lazy objects
|
||||
FChangingSignal: IMycFlag; // Used as the 'Changing' state for functional lazy objects
|
||||
|
||||
// Helper to consume the initial pop, which is always expected to succeed
|
||||
// for a TLazy wrapping a functional lazy object due to "Changed.IsSet initially true" design.
|
||||
@@ -76,7 +76,7 @@ begin
|
||||
// Create a common signal source for tests that need it.
|
||||
// TState.CreateDirty is from Myc.Signals.pas (interface part)
|
||||
// Its implementation might rely on Myc.Core.Signals, but that's an indirect usage.
|
||||
FChangingSignal := TDirty.Construct;
|
||||
FChangingSignal := TFlag.CreateFlag;
|
||||
FChangingSignal.Reset; // Start with a clean (not set) signal for predictable test starts
|
||||
end;
|
||||
|
||||
@@ -306,9 +306,9 @@ end;
|
||||
procedure TTestMyLazy.TestConstruct_Destruction_UnsubscribesAndNoCrashOnSourceNotify;
|
||||
var
|
||||
lazyIntf: IMycLazy<Integer>;
|
||||
localChangingSignal: IMycDirty; // Use a local signal for this test to control its lifetime
|
||||
localChangingSignal: IMycFlag; // Use a local signal for this test to control its lifetime
|
||||
begin
|
||||
localChangingSignal := TDirty.Construct;
|
||||
localChangingSignal := TFlag.CreateFlag;
|
||||
localChangingSignal.Reset;
|
||||
|
||||
lazyIntf := TLazy<Integer>.Construct(localChangingSignal.State, function: Integer begin Result := 1; end);
|
||||
|
||||
Reference in New Issue
Block a user