branch: externals/dape
commit d0146af08bd1d6d80f80fd154c3e8e7a9c725cb6
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Fix breakpoint hits test
---
dape-tests.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/dape-tests.el b/dape-tests.el
index 71b446971d..a113374e37 100644
--- a/dape-tests.el
+++ b/dape-tests.el
@@ -631,15 +631,16 @@ Expects line with string \"breakpoint\" in source."
;; Start debugging
(apply 'dape-test--debug buffer key args)
;; Continue 4 times
- (dotimes (_ 5)
+ (dotimes (_ 4)
(dape-test--should-stopped)
(dape-continue (dape--live-connection 'stopped)))
;; Debugging session over
- (dape-test--should (not (dape--live-connection 'parent t)))
+ (dape-test--should-stopped)
;; Breakpoint in *dape-info Breakpoints*
(with-current-buffer breakpoints-buffer
- (revert-buffer)
- (dape-test--should (not (dape-test--line-at-regex "^break .*5 *$"))))))
+ (dape-test--revert-buffer)
+ (dape-test--should
+ (dape-test--line-at-regex "^break .*5 *$")))))
(ert-deftest dape-test-breakpoint-hits ()
"Test breakpoint hits."
