guzheng lein

gistfile1.clj

(ns leiningen.guzheng
  (:use [leiningen.compile :only [eval-in-project]])
  (:use guzheng.core))

(defn guzheng [project & nses]
  (eval-in-project
    project `(do
               (clojure.test/run-tests 'guzheng.test.core))
    '(require 'guzheng.core 'clojure.test)))
(comment(guzheng.core/run-test-instrumented
                 guzheng.core/trace-if-branches
                 ['guzheng.sample]
                 'guzheng.test.core))
               (guzheng.core/report-missing-coverage)