test-case.clj

(def first-func (fn [log] (log "Hello")))
(def second-func (fn [log] (log "World")))

;; current implementation

(defn format-steps [forms]
  (loop [items forms
         result []]
    (if (empty? items)
      result
      (let [[n f] items
            item {:name n :func f}]
          (recur (drop 2 items) (conj result item))))))

(defmacro defpipeline [n & forms]
  `(def ~n {:name (name '~n)
            :steps (format-steps '~forms)}))

;;;;; Tests

;; creating a pipeline
(pipeline/defpipeline simple-pipeline
  "log1" first-func
  "log2" second-func)

;; expected output
(def simple-pipeline-output
  {:name "simple-pipeline"
   :steps [{:name "log1"
            :func first-func}
           {:name "log2"
            :func second-func}]})


(deftest creating-pipelines
  (testing "Simple Pipeline"
      (is (= simple-pipeline-output simple-pipeline))))