WIP

svaante · Dec 28, 2023 · 0e0cc6c · 0e0cc6c
1 parent 999c410
commit 0e0cc6c
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/dape-tests.el b/dape-tests.el
@@ -544,21 +544,24 @@ Expects line with string \"breakpoint\" in source."
      (eq dape--state 'stopped))
     (with-current-buffer main-buffer
       (dape-test--should
-       (= (line-number-at-pos)
-          (dape-test--line-at-regex "breakpoint"))))
+       (and (= (line-number-at-pos)
+               (dape-test--line-at-regex "breakpoint"))
+            (eq dape--state 'stopped))))
     (pop-to-buffer "*dape-repl*")
     (insert "next")
     (comint-send-input)
     (with-current-buffer main-buffer
       (dape-test--should
-       (= (line-number-at-pos)
-          (dape-test--line-at-regex "second line"))))
+       (and (= (line-number-at-pos)
+               (dape-test--line-at-regex "second line"))
+            (eq dape--state 'stopped))))
     (insert "next")
     (comint-send-input)
     (with-current-buffer main-buffer
       (dape-test--should
-       (= (line-number-at-pos)
-          (dape-test--line-at-regex "third line"))))
+       (and (= (line-number-at-pos)
+               (dape-test--line-at-regex "third line"))
+            (eq dape--state 'stopped))))
     (insert "a = 99")
     (comint-send-input)
     (with-current-buffer (dape-test--should