From c891537cc00700da420307066b755124fc1abfab Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Sun, 10 Nov 2024 22:58:35 +0100
Subject: [PATCH] LazDebuggerFp: test, change testcase to use Test* instead of
 Assert* => so it will write logs

(cherry picked from commit 95a133b37922b7bc5e5bf8a64e65a324e6d2be40)
---
 .../lazdebuggerfp/test/testbreakpoint.pas     | 24 ++++++++++---------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/components/lazdebuggers/lazdebuggerfp/test/testbreakpoint.pas b/components/lazdebuggers/lazdebuggerfp/test/testbreakpoint.pas
index 9fa0c714f9..a496177fd8 100644
--- a/components/lazdebuggers/lazdebuggerfp/test/testbreakpoint.pas
+++ b/components/lazdebuggers/lazdebuggerfp/test/testbreakpoint.pas
@@ -139,11 +139,11 @@ var
     if ExpFoundLine = -1 then ExpFoundLine := ALine;
     r := Ctrl.CurrentProcess.DbgInfo.GetLineAddresses('StepOverPrg.pas',
       ALine, ResLst, AFindSibling, @FndLine, @FndFile, AMaxAfter);
-    AssertTrue(AName, r);
-    AssertTrue(AName, FndFile);
-    AssertEquals(AName, ExpFoundLine, FndLine);
-    AssertTrue(AName, Length(ResLst) > 0);
-    AssertTrue(AName, ResLst[0] <> 0);
+    TestTrue(AName, r);
+    TestTrue(AName, FndFile);
+    TestEquals(AName, ExpFoundLine, FndLine);
+    TestTrue(AName, Length(ResLst) > 0);
+    TestTrue(AName, ResLst[0] <> 0);
   end;
 
   procedure TestLineNotFound(ALine: Cardinal; AFindSibling: TGetLineAddrFindSibling;
@@ -157,7 +157,7 @@ var
     AName := 'Found '+IntToStr(ALine);
     r := Ctrl.CurrentProcess.DbgInfo.GetLineAddresses('StepOverPrg.pas',
       ALine, ResLst, AFindSibling, @FndLine, @FndFile, AMaxAfter);
-    AssertFalse(AName, r);
+    TestFalse(AName, r);
     //AssertTrue(AName, FndFile);
   end;
 
@@ -259,10 +259,12 @@ begin
 
     dbg.Stop;
   finally
-    Debugger.ClearDebuggerMonitors;
-    Debugger.FreeDebugger;
-
-    AssertTestErrors;
+    try
+      Debugger.ClearDebuggerMonitors;
+      Debugger.FreeDebugger;
+    finally
+      AssertTestErrors;
+    end;
   end;
 end;
 
@@ -278,7 +280,7 @@ begin
   Src := GetCommonSourceFor(AppDir + 'BreakPointPrg.pas');
   TestCompile(Src, ExeName);
 
-  AssertTrue('Start debugger', Debugger.StartDebugger(AppDir, ExeName));
+  TestTrue('Start debugger', Debugger.StartDebugger(AppDir, ExeName));
   dbg := Debugger.LazDebugger;
 
   try