 (deftest retry-action
   (checking
    "Using a retry action with a true predicate flows to nil"
-   (times 20)
+   (times 30)
    [retry-false
     (gen/vector (->> :a
                      (flow-condition-gen)

(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)

   base-gen
   (fn [v]
     (let [g (gen/return ::false-pred)
           false-gen (gen/hash-map :flow/predicate g
                                   :pred/val (gen/return false))]
       (gen/fmap #(merge v %) false-gen)))))

(defn short-circuit-flow-condition-gen [base-gen]
