testing - 如何在启动环服务器之前运行测试

Question

我正在开发一个 clojure API，我想每次启动我的服务器时，在它之前运行测试。

我找到了函数 (run-tests) 和 (run-all-tests)，但是 clojure 说这个函数在那个命名空间中不存在。如果我将 (:use clojure.test) 放在我的 ns 上，该函数可以工作，但它会从我正在使用的库和 clojure 核心运行测试。

这是我的处理程序，我在其中放置了主要方法，然后我希望“lein run”运行我的测试然后启动服务器。

(ns clojure-api.handler
  (:use compojure.core)
  (:require [compojure.route :as route]
            [org.httpkit.server :refer [run-server]]))

(defroutes app-routes 
    ;routes...
)

(def app
  (-> app-routes
      ;Some middleware))

(defn -main  
  [& args]
  (println "Running bank tests")
  (run-all-tests)
  (println "Starting server")
  (run-server app {:port 3000}))

Answer 1

如果您的项目是 leiningen 项目，您可以在 project.clj 中定义一个别名，它结合了测试和运行任务，如下所示:

:aliases {"test-and-run" ["do" "test" "run"]}

;; .lein.sh test-and-run