From 3ea1675362b4b663f318c04e9667f98c276332a5 Mon Sep 17 00:00:00 2001 From: Martin Date: Sun, 8 Jan 2023 22:57:19 +0100 Subject: [PATCH] FpDebug: Fix test for "step over". non-breaking breakpoints no longer cause an internal pause --- components/lazdebuggers/lazdebuggerfp/test/teststepping.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/components/lazdebuggers/lazdebuggerfp/test/teststepping.pas b/components/lazdebuggers/lazdebuggerfp/test/teststepping.pas index 70c26e25d4..4a2fdff4cd 100644 --- a/components/lazdebuggers/lazdebuggerfp/test/teststepping.pas +++ b/components/lazdebuggers/lazdebuggerfp/test/teststepping.pas @@ -237,7 +237,8 @@ begin TestLocation('At AfterStepBrkDis', 'AfterStepBrkDis', -1); // Step over a subroutine call, with a breakpoint that continues - RunToNextPauseTestInternal('', 1, dcStepOver); + // No internal pause should happen + RunToNextPauseTestInternal('', 0, dcStepOver); AssertDebuggerState(dsPause); TestLocation('At AfterStepBrkHitCnt', 'AfterStepBrkHitCnt', -1); @@ -468,7 +469,7 @@ begin AssertDebuggerState(dsPause); TestLocation('At AfterStepBrkDis', 'AfterStepBrkDis', -1); - StepInstrToNextLine('Go to AfterStepBrkHitCnt', 1); + StepInstrToNextLine('Go to AfterStepBrkHitCnt', 0); AssertDebuggerState(dsPause); TestLocation('At AfterStepBrkHitCnt', 'AfterStepBrkHitCnt', -1);