Integer compare always true

[RedmonkeyDF]

I have a test defined like so:

[Test]
 [TestCase('TestSetAsInteger 001.', '0')]
 [TestCase('TestSetAsInteger 002.', '666')]
 procedure TestSetAsInteger(IntVal : integer);

And Implemented like so:

procedure TTestKeyValueList.TestSetAsInteger(IntVal: integer);
begin
  FKVL.AsInteger['testkey'] := IntVal;
  Assert.AreEqual(IntVal, FKVL.AsInteger['testkey']);
end;

The methods in FKVL are stubs, so they should fail. Problem is, they always pass.

Now, If I change the test implementation to:

procedure TTestKeyValueList.TestSetAsInteger(IntVal: integer);
begin
  FKVL.AsInteger['testkey'] := IntVal;
  Sleep(1);  //This can be anything really, I can call FKVL.Count or other some such
  Assert.AreEqual(IntVal, FKVL.AsInteger['testkey']);
end;

The test now works as intended. Weird.

[RedmonkeyDF]

There is a good explanation of why this happened on the question about this I posted on stackoverflow.

https://stackoverflow.com/questions/76988385/dunitx-integer-test-always-true/76991051#76991051