[elpa] externals/dape e3ed989dd5 2/3: Harder repl test

[ELPA Syncer]

branch: externals/dape
commit e3ed989dd5674538f36096bd0ac0588062236e68
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>

    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