session_results.clj

   "good"
   :extends *base-spec*
   :phases
   {:first (api/plan-fn (actions/exec-script
                         (println "first!")))
    :second (api/plan-fn
                (actions/exec-checked-script
                 "say hello!"
                 ("echo" "hello world!")))}))

(def bad-group
  (api/group-spec
   "bad"
   :extends *base-spec*
   :phases
   {:second (api/plan-fn
                (actions/exec-script
                 "hello"
                 (println "hello world!"))
                (actions/exec-checked-script
                 "fail!"
                 ("exit -1")))}))

(defn run
  ([] (run 2 2))
  ([n] (run n 2))
  ([n m]
     (api/converge {good-group n
                bad-group m}
                   :compute *compute*
                   :phase [:first :second])))