code.test.base.process — xyz.zcaudate/code.test 4.0.5

attach-meta clj

(attach-meta m meta)

attaches metadata to the result

collect clj

(collect meta results)

makes sure that all returned verified results are true (->> (compile/split '[(+ 1 1) => 2 (+ 1 2) => 3]) (mapv process) (collect {})) => true

evaluate clj

(evaluate {:keys [form]})

converts a form to a result

(->> (evaluate {:form '(+ 1 2 3)}) (into {})) => (contains {:status :success, :data 6, :form '(+ 1 2 3), :from :evaluate})

process clj multimethod

processes a form or a check (defn view-signal [op] (let [output (atom nil)] (h/signal:with-temp [:test (fn [{:keys [result]}] (reset! output (into {} result)))] (process op) @output)))

(view-signal {:type :form :form '(+ 1 2 3) :meta {:line 10 :col 3}}) => (contains {:status :success, :data 6, :form '(+ 1 2 3), :from :evaluate, :meta {:line 10, :col 3}})

((contains {:status :success, :data true, :checker base/checker? :actual 6, :from :verify, :meta nil}) (view-signal {:type :test-equal :input {:form '(+ 1 2 3)} :output {:form 'even?}})) => true

run-single clj

(run-single {:keys [unit refer] :as meta} body)

runs a single check form

skip clj

(skip meta)

returns the form with no ops evaluated