📅 最后修改于: 2020-11-05 04:10:14 🧑 作者: Mango
在本章中，让我们讨论Clojure提供的自动测试选项。
为了对Clojure框架进行测试，您必须使用位于https://github.com/slagyr/speclj#manual-installation的依赖项
该URL提供了speclj框架，该框架用作Clojure的测试数据驱动或行为驱动的测试框架。使用任何“ speclj”库时，必须确保使用Clojure 1.7.0框架。默认情况下，测试文件将不同于Clojure代码文件，并且需要放置在“ spec”目录中。
以下是测试文件的示例代码。
(ns change.core-spec
(:require [speclj.core :refer :all]))
(describe "Truth"
(it "is true"
(should true))
(it "is not false"
(should-not false)))
(run-specs)
关于上述代码，需要注意以下几点：
我们首先必须确保使用’require’语句将所有核心库包含在’speclj’框架中。
接下来是“描述”函数。这用于为正在创建的测试用例提供描述。
下一个函数是“ it”函数，它是实际的测试用例。在第一个测试用例中，“ is true”字符串是赋予测试用例的名称。
应该和不应该被称为断言。所有断言都应以“应该”开头。应该和不应该只是众多可用断言中的两个。他们俩都表示将分别检查真实性和虚假性。
如果运行测试用例，您将获得以下输出。输出显示测试用例运行所花费的时间(以毫秒为单位)。
←[32m.←[0m←[32m.←[0m
Finished in 0.00014 seconds
Selenium是用于测试现代基于Web的应用程序的关键框架之一。 Clojure库也可用，可用于测试基于Web的应用程序。
让我们看看如何使用Selenium库测试基于Web的Clojure应用程序。
步骤1-第一步是确保我们使用Ring and Compojure框架来创建基于Web的应用程序，需要对其进行测试。让我们使用前面几章中的示例之一。以下代码是一个简单的Web应用程序，它在浏览器中显示“ Hello World”。
(ns my-webapp.handler
(:require [compojure.core :refer :all]
[compojure.route :as route]
[ring.middleware.defaults :refer [wrap-defaults site-defaults]]))
(defroutes app-routes
(GET "/" [] "Hello World")
(route/not-found "Not Found"))
(def app
(wrap-defaults app-routes site-defaults))
步骤2-接下来，请确保下载硒罐文件https://mvnrepository.com/artifact/org.seleniumhq.selenium/selenium-server/2.47.0并将其包含在您的类路径中。
步骤3-还请确保下载“ clj” Web驱动程序，该驱动程序将从以下位置用于运行Web测试。
https://clojars.org/clj-webdriver/versions/0.7.1
步骤4-在项目目录中，创建另一个名为features的目录，并创建一个名为“ config.clj”的文件。
步骤5-接下来，将以下代码添加到上一步中创建的“ config.clj”文件中。
ns clj-webdriver-tutorial.features.config)
(def test-port 3000)
(def test-host "localhost")
(def test-base-url (str "http://" test-host ":" test-port "/"))
上面的代码基本上告诉Web测试框架测试应用程序，该应用程序从URL http：// localhost：3000加载。
步骤6-最后，让我们编写代码进行测试。
(ns clj-webdriver-tutorial.features.homepage
(:require [clojure.test :refer :all]
[ring.adapter.jetty :refer [run-jetty]]
[clj-webdriver.taxi :refer :all]
[clj-webdriver-tutorial.features.config :refer :all]
[clj-webdriver-tutorial.handler :refer [app-routes]]))
(ns clj-webdriver-tutorial.features.homepage
(:require [clojure.test :refer :all]
[ring.adapter.jetty :refer [run-jetty]]
[clj-webdriver.taxi :refer :all]
[clj-webdriver-tutorial.features.config :refer :all]
[clj-webdriver-tutorial.handler :refer [app-routes]]))
(defn start-server []
(loop [server (run-jetty app-routes {:port test-port, :join? false})]
(if (.isStarted server)
server
(recur server))))
(defn stop-server [server]
(.stop server))
(defn start-browser []
(set-driver! {:browser :firefox}))
(defn stop-browser []
(quit))
(deftest homepage-greeting
(let [server (start-server)]
(start-browser)
(to test-base-url)
(is (= (text "body") "Hello World"))
(stop-browser)
(stop-server server)))
上面的代码将采取以下措施-