   (gen/bind
    base-gen
    (fn [v]
-     (let [g (gen/hash-map :flow/action (gen/return :retry))]
+     (let [g (gen/hash-map :flow/action (gen/return :retry)
+                           :flow/short-circuit? (gen/return true)
+                           :flow/to (gen/return nil))]
        (gen/fmap #(merge v %) g)))))
 
 (deftest nil-flow-conditions

         results (t/route-data event nil nil flow-conditions downstream)]
     (is (= (into #{} (mapcat :flow/to true-fcs)) (into #{} (:flow results))))
     (is (nil? (:action results))))))

(deftest no-false-predicate-picks
  (checking
   "It doesn't pick any downstream tasks with false predicates"
   (times 20)
   [true-fcs
    (gen/vector (->> :a
                     (flow-condition-gen)
                     (flow-to-tasks-gen)
                     (true-flow-condition-gen)))
    false-fcs
    (gen/vector (->> :a
                     (flow-condition-gen)
                     (flow-to-tasks-gen)
                     (false-flow-condition-gen)))]
   (let [flow-conditions (into true-fcs false-fcs)
         downstream (mapcat :flow/to true-fcs false-fcs)
         compiled (c/compile-fc-norms flow-conditions :a)
