Add unit tests for 8 Bold units improving code coverage

New test files:
- Test.BoldUpdatePrecondition.pas (18 tests, 54.6% coverage)
- Test.BoldCondition.pas (18 tests, 28.7% coverage)
- Test.BoldExternalizedReferences.pas (10 tests, 98.0% coverage)
- Test.BoldPersistenceController.pas (8 tests, 60.6% coverage)
- Test.BoldStubs.pas (8 tests, 97.1% coverage)
- Test.BoldUMLTaggedValues.pas (6 tests, 100% coverage)
- Test.BoldSortedHandle.pas (12 tests, 47.9% coverage)
- Test.BoldDefaultId.pas (25 tests, 73.7% coverage)

Total: 105 new tests across 8 test fixtures

Author: bero

UnitTest/Code/Common/Test.BoldExternalizedReferences.pas

@@ -0,0 +1,224 @@
+unit Test.BoldExternalizedReferences;
+
+interface
+
+uses
+  DUnitX.TestFramework,
+  BoldExternalizedReferences;
+
+type
+  [TestFixture]
+  TTestBoldExternalizedReferences = class
+  private
+    FList: TBoldExternalizedReferenceList;
+  public
+    [Setup]
+    procedure Setup;
+    [TearDown]
+    procedure TearDown;
+
+    [Test]
+    procedure TestCreate;
+    [Test]
+    procedure TestCountEmpty;
+    [Test]
+    procedure TestSetAndGetReferencedObject;
+    [Test]
+    procedure TestGetReferencedObject_NotFound;
+    [Test]
+    procedure TestCountAfterAdd;
+    [Test]
+    procedure TestSetReferencedObject_Replace;
+    [Test]
+    procedure TestSetReferencedObject_RemoveWithNil;
+    [Test]
+    procedure TestManageReferencedObjectProperty;
+    [Test]
+    procedure TestSetReferencedObject_SameValueNoOp;
+    [Test]
+    procedure TestMultipleReferees;
+  end;
+
+implementation
+
+uses
+  SysUtils,
+  Classes;
+
+{ TTestBoldExternalizedReferences }
+
+procedure TTestBoldExternalizedReferences.Setup;
+begin
+  FList := TBoldExternalizedReferenceList.Create;
+end;
+
+procedure TTestBoldExternalizedReferences.TearDown;
+begin
+  FList.Free;
+end;
+
+procedure TTestBoldExternalizedReferences.TestCreate;
+begin
+  Assert.IsNotNull(FList);
+end;
+
+procedure TTestBoldExternalizedReferences.TestCountEmpty;
+begin
+  Assert.AreEqual(0, FList.Count);
+end;
+
+procedure TTestBoldExternalizedReferences.TestSetAndGetReferencedObject;
+var
+  Referee, Referenced: TObject;
+begin
+  Referee := TObject.Create;
+  Referenced := TObject.Create;
+  try
+    FList.ReferencedObjects[Referee] := Referenced;
+    Assert.AreSame(Referenced, FList.ReferencedObjects[Referee]);
+  finally
+    Referee.Free;
+    Referenced.Free;
+  end;
+end;
+
+procedure TTestBoldExternalizedReferences.TestGetReferencedObject_NotFound;
+var
+  Referee: TObject;
+begin
+  Referee := TObject.Create;
+  try
+    Assert.IsNull(FList.ReferencedObjects[Referee]);
+  finally
+    Referee.Free;
+  end;
+end;
+
+procedure TTestBoldExternalizedReferences.TestCountAfterAdd;
+var
+  Referee1, Referee2, Referenced1, Referenced2: TObject;
+begin
+  Referee1 := TObject.Create;
+  Referee2 := TObject.Create;
+  Referenced1 := TObject.Create;
+  Referenced2 := TObject.Create;
+  try
+    FList.ReferencedObjects[Referee1] := Referenced1;
+    Assert.AreEqual(1, FList.Count);
+
+    FList.ReferencedObjects[Referee2] := Referenced2;
+    Assert.AreEqual(2, FList.Count);
+  finally
+    Referee1.Free;
+    Referee2.Free;
+    Referenced1.Free;
+    Referenced2.Free;
+  end;
+end;
+
+procedure TTestBoldExternalizedReferences.TestSetReferencedObject_Replace;
+var
+  Referee, Referenced1, Referenced2: TObject;
+begin
+  Referee := TObject.Create;
+  Referenced1 := TObject.Create;
+  Referenced2 := TObject.Create;
+  try
+    FList.ReferencedObjects[Referee] := Referenced1;
+    Assert.AreSame(Referenced1, FList.ReferencedObjects[Referee]);
+    Assert.AreEqual(1, FList.Count);
+
+    FList.ReferencedObjects[Referee] := Referenced2;
+    Assert.AreSame(Referenced2, FList.ReferencedObjects[Referee]);
+    Assert.AreEqual(1, FList.Count);  // Count should still be 1 after replacement
+  finally
+    Referee.Free;
+    Referenced1.Free;
+    Referenced2.Free;
+  end;
+end;
+
+procedure TTestBoldExternalizedReferences.TestSetReferencedObject_RemoveWithNil;
+var
+  Referee, Referenced: TObject;
+begin
+  Referee := TObject.Create;
+  Referenced := TObject.Create;
+  try
+    FList.ReferencedObjects[Referee] := Referenced;
+    Assert.AreEqual(1, FList.Count);
+
+    FList.ReferencedObjects[Referee] := nil;
+    Assert.AreEqual(0, FList.Count);
+    Assert.IsNull(FList.ReferencedObjects[Referee]);
+  finally
+    Referee.Free;
+    Referenced.Free;
+  end;
+end;
+
+procedure TTestBoldExternalizedReferences.TestManageReferencedObjectProperty;
+begin
+  Assert.IsFalse(FList.ManageReferencedObject);
+
+  FList.ManageReferencedObject := True;
+  Assert.IsTrue(FList.ManageReferencedObject);
+
+  FList.ManageReferencedObject := False;
+  Assert.IsFalse(FList.ManageReferencedObject);
+end;
+
+procedure TTestBoldExternalizedReferences.TestSetReferencedObject_SameValueNoOp;
+var
+  Referee, Referenced: TObject;
+begin
+  Referee := TObject.Create;
+  Referenced := TObject.Create;
+  try
+    FList.ReferencedObjects[Referee] := Referenced;
+    Assert.AreEqual(1, FList.Count);
+
+    // Setting same value should be a no-op
+    FList.ReferencedObjects[Referee] := Referenced;
+    Assert.AreEqual(1, FList.Count);
+    Assert.AreSame(Referenced, FList.ReferencedObjects[Referee]);
+  finally
+    Referee.Free;
+    Referenced.Free;
+  end;
+end;
+
+procedure TTestBoldExternalizedReferences.TestMultipleReferees;
+var
+  Referee1, Referee2, Referee3: TObject;
+  Referenced1, Referenced2, Referenced3: TObject;
+begin
+  Referee1 := TObject.Create;
+  Referee2 := TObject.Create;
+  Referee3 := TObject.Create;
+  Referenced1 := TObject.Create;
+  Referenced2 := TObject.Create;
+  Referenced3 := TObject.Create;
+  try
+    FList.ReferencedObjects[Referee1] := Referenced1;
+    FList.ReferencedObjects[Referee2] := Referenced2;
+    FList.ReferencedObjects[Referee3] := Referenced3;
+
+    Assert.AreEqual(3, FList.Count);
+    Assert.AreSame(Referenced1, FList.ReferencedObjects[Referee1]);
+    Assert.AreSame(Referenced2, FList.ReferencedObjects[Referee2]);
+    Assert.AreSame(Referenced3, FList.ReferencedObjects[Referee3]);
+  finally
+    Referee1.Free;
+    Referee2.Free;
+    Referee3.Free;
+    Referenced1.Free;
+    Referenced2.Free;
+    Referenced3.Free;
+  end;
+end;
+
+initialization
+  TDUnitX.RegisterTestFixture(TTestBoldExternalizedReferences);
+
+end.

UnitTest/Code/Common/Test.BoldStubs.pas

@@ -0,0 +1,100 @@
+unit Test.BoldStubs;
+
+interface
+
+uses
+  DUnitX.TestFramework,
+  BoldStubs;
+
+type
+  [TestFixture]
+  TTestBoldStubs = class
+  public
+    [Test]
+    procedure TestTraceLogAssigned;
+    [Test]
+    procedure TestTraceLogReturnsInstance;
+    [Test]
+    procedure TestTraceLogReturnsSameInstance;
+    [Test]
+    procedure TestTraceLogSystemMessage;
+    [Test]
+    procedure TestTraceLogSystemMessageWithFormat;
+    [Test]
+    procedure TestTraceLogLogFileDir;
+    [Test]
+    procedure TestInSpanFetch_ReturnsFalse;
+    [Test]
+    procedure TestPrefetchDerivedMember_DoesNotRaise;
+  end;
+
+implementation
+
+uses
+  SysUtils;
+
+{ TTestBoldStubs }
+
+procedure TTestBoldStubs.TestTraceLogAssigned;
+begin
+  Assert.IsTrue(TraceLogAssigned);
+end;
+
+procedure TTestBoldStubs.TestTraceLogReturnsInstance;
+begin
+  Assert.IsNotNull(TraceLog);
+end;
+
+procedure TTestBoldStubs.TestTraceLogReturnsSameInstance;
+var
+  Log1, Log2: TTraceLog;
+begin
+  Log1 := TraceLog;
+  Log2 := TraceLog;
+  Assert.AreSame(Log1, Log2);
+end;
+
+procedure TTestBoldStubs.TestTraceLogSystemMessage;
+begin
+  // Should not raise, delegates to BoldLog
+  TraceLog.SystemMessage('Test message', ekInfo);
+  TraceLog.SystemMessage('Warning message', ekWarning);
+  TraceLog.SystemMessage('Error message', ekError);
+  TraceLog.SystemMessage('Debug message', ekDebug);
+  Assert.Pass;
+end;
+
+procedure TTestBoldStubs.TestTraceLogSystemMessageWithFormat;
+begin
+  // Should not raise, delegates to BoldLog
+  TraceLog.SystemMessage('Test %s %d', ['string', 42], ekInfo);
+  TraceLog.SystemMessage('Warning %d', [123], ekWarning);
+  Assert.Pass;
+end;
+
+procedure TTestBoldStubs.TestTraceLogLogFileDir;
+var
+  Dir: string;
+begin
+  Dir := TraceLog.LogFileDir;
+  Assert.IsNotEmpty(Dir);
+  // Should return path of executable
+  Assert.AreEqual(ExtractFilePath(ParamStr(0)), Dir);
+end;
+
+procedure TTestBoldStubs.TestInSpanFetch_ReturnsFalse;
+begin
+  Assert.IsFalse(InSpanFetch);
+end;
+
+procedure TTestBoldStubs.TestPrefetchDerivedMember_DoesNotRaise;
+begin
+  // Should not raise - it's a no-op stub
+  PrefetchDerivedMember(nil);
+  Assert.Pass;
+end;
+
+initialization
+  TDUnitX.RegisterTestFixture(TTestBoldStubs);
+
+end.