Skip to content

Commit

Permalink
Rename :Continue command to :continue-all, tweak docstring
Browse files Browse the repository at this point in the history
Update :Continue -> :continue-all in debug-integration-test
  • Loading branch information
yuhan0 authored and bbatsov committed Oct 19, 2019
1 parent 3fade59 commit 3762b9e
Show file tree
Hide file tree
Showing 2 changed files with 12 additions and 8 deletions.
14 changes: 9 additions & 5 deletions src/cider/nrepl/middleware/debug.clj
Original file line number Diff line number Diff line change
Expand Up @@ -299,7 +299,7 @@ this map (identified by a key), and will `dissoc` it afterwards."}
(def debug-commands
"An unsorted set of commands supported by the debugger."
#{:continue
:Continue
:continue-all
:eval
:here
:in
Expand All @@ -317,13 +317,17 @@ this map (identified by a key), and will `dissoc` it afterwards."}
Ask for one of the following debug commands using `read-debug-input`:
next: Return value.
continue: Skip breakpoints for the remainder of this eval session.
continue: Skip the current breakpoint.
continue-all: Skip breakpoints for the remainder of this eval session.
in: Step into a function
out: Skip breakpoints in the current sexp.
inspect: Evaluate an expression and inspect it.
here: Skip all breakpoints up till specified coordinate `coord`
inspect: Prompt for an expression to evaluate and inspect it.
locals: Inspect local variables.
inject: Evaluate an expression and return it.
eval: Evaluate an expression, display result, and prompt again.
stacktrace: Print the current stacktrace, and prompt again.
trace: Continue, printing intermediate expressions and their values.
quit: Abort current eval session.
Response received can be any one of these values. It can also be a map
Expand Down Expand Up @@ -355,8 +359,8 @@ this map (identified by a key), and will `dissoc` it afterwards."}
value)
:continue (do (reset! (:skip STATE__) true)
value)
:Continue (do (skip-breaks! :all)
value)
:continue-all (do (skip-breaks! :all)
value)
:out (do (skip-breaks! :deeper (butlast (:coor dbg-state)) (:code dbg-state) force?)
value)
:here (do (skip-breaks! :before coord (:code dbg-state) force?)
Expand Down
6 changes: 3 additions & 3 deletions test/clj/cider/nrepl/middleware/debug_integration_test.clj
Original file line number Diff line number Diff line change
Expand Up @@ -96,7 +96,7 @@

(def-debug-op :next)
(def-debug-op :continue)
(def-debug-op :Continue)
(def-debug-op :continue-all)
(def-debug-op :in)

(defmethod debugger-send :out [_ & [force?]]
Expand Down Expand Up @@ -261,7 +261,7 @@
(<-- {:debug-value "1" :coor [1 3 1]}) ; a in foo
(--> :continue)
(<-- {:debug-value "2" :coor [1 3 1]}) ; a in foo
(--> :Continue)
(--> :continue-all)
(<-- {:value ":fin"})
(<-- {:status ["done"]})))

Expand Down Expand Up @@ -615,6 +615,6 @@
(.startsWith file "jar:file:")
(.endsWith file "/nrepl/server.clj"))

(--> :Continue)
(--> :continue-all)
(<-- {:value "{:transport 23}"})
(<-- {:status ["done"]}))

0 comments on commit 3762b9e

Please sign in to comment.