branch: externals/dape
commit e3ed989dd5674538f36096bd0ac0588062236e68
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Harder repl test
---
dape-tests.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/dape-tests.el b/dape-tests.el
index 163c3f7095..fb14823f31 100644
--- a/dape-tests.el
+++ b/dape-tests.el
@@ -104,6 +104,8 @@ Helper for `dape-test--with-files'."
(dape-test--should
(not (process-list)))
(advice-remove 'yes-or-no-p 'always-yes)
+ (dolist (buffer buffers)
+ (kill-buffer buffer))
;; clean up files
(delete-directory temp-dir t)))))
@@ -542,21 +544,19 @@ Expects line with string \"breakpoint\" in source."
:program (buffer-file-name main-buffer)
:cwd default-directory)
;; at breakpoint and stopped
- (dape-test--should
- (eq dape--state 'stopped))
+ (dape-test--should (dape--stopped-threads))
(with-current-buffer main-buffer
(dape-test--should
- (and (= (line-number-at-pos)
- (dape-test--line-at-regex "breakpoint"))
- (eq dape--state 'stopped))))
+ (= (line-number-at-pos)
+ (dape-test--line-at-regex "breakpoint"))))
(pop-to-buffer "*dape-repl*")
(insert "next")
(comint-send-input)
+ (dape-test--should (dape--stopped-threads))
(with-current-buffer main-buffer
(dape-test--should
- (and (= (line-number-at-pos)
- (dape-test--line-at-regex "second line"))
- (eq dape--state 'stopped))))
+ (= (line-number-at-pos)
+ (dape-test--line-at-regex "second line"))))
(insert "next")
(comint-send-input)
(with-current-buffer main-buffer
