Skip to content

Commit

Permalink
Add comments to highlight NOOP.
Browse files Browse the repository at this point in the history
  • Loading branch information
abrooks committed Jun 9, 2016
1 parent a918a40 commit b6a783f
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions test/lein_voom_testing/core_test.clj
Expand Up @@ -26,6 +26,7 @@
(-> state
(assoc-in [:state repo] {name :details})
(update-in [:actions] conj [:new-agent name repo]))
;; NOOP because there is no repo
state)))

(defn apply-actions
Expand All @@ -35,6 +36,9 @@
:new-agent (apply new-agent state args)))

(defn do-run [n]
;; I could seed with an initial repo but I specifically want to show
;; how the new-agent can be NOOPed when there there is no repo yet
;; -- this will come in to play more with other generators.
(map #(reduce apply-actions {:state {} :actions []} %)
(gen/sample (gen/vector
(gen/frequency [[10 new-project-repo-gen]
Expand Down

0 comments on commit b6a783f

Please sign in to comment.