Implemented TLazy + Tests
This commit is contained in:
@@ -146,7 +146,7 @@ var
|
||||
delayedGate: IMycLatch; // IMycLatch implements IMycState [cite: 58]
|
||||
resultValue: Integer;
|
||||
begin
|
||||
delayedGate := TState.CreateLatch( 1 ); // Create a latch that requires one notification to be set [cite: 66]
|
||||
delayedGate := TLatch.Construct( 1 ); // Create a latch that requires one notification to be set [cite: 66]
|
||||
Assert.IsNotNull( delayedGate, 'The delayed gate (IMycLatch) should not be nil.' ); // Static string
|
||||
Assert.IsFalse( delayedGate.State.IsSet, 'The delayed gate should not be initially set.' ); // Static string [cite: 59, 55]
|
||||
|
||||
@@ -217,7 +217,7 @@ var
|
||||
delayedGate: IMycLatch;
|
||||
resultValue: string;
|
||||
begin
|
||||
delayedGate := TState.CreateLatch( 1 ); // [cite: 66]
|
||||
delayedGate := TLatch.Construct( 1 ); // [cite: 66]
|
||||
Assert.IsFalse( delayedGate.State.IsSet, 'The delayed gate for chain test should not be initially set.' );
|
||||
// Static string [cite: 59, 55]
|
||||
|
||||
|
||||
Reference in New Issue
Block a user