让组织接受备用JVM语言的方法之一是首先将它用于单元测试Java代码 - “老板,我只是要在XXX中编写一些单元测试。它永远不会出去投入生产。“
在Clojure中有没有这方面的教程?
我刚刚开始使用Scala来测试Java REST服务器。在Scala中编写测试允许我嵌入预期的XML输出,使用文字List
对象模拟数据库调用等,更不用说特征使得很容易抽象出测试的公共代码。
答案 0 :(得分:10)
基本上你需要的是clojure.test(或许多其他clojure测试库之一)和标准Clojure Java interop。
示例:
(ns example.test-java-util
(:use
[clojure.test])
(:import [java.util HashSet]))
(defn new-empty-set []
(HashSet.))
(deftest test-empty-set
(is (= 0 (.size (new-empty-set))))
(is (= true (.isEmpty (new-empty-set))))
(is (= (new-empty-set) (new-empty-set))))
(deftest test-add-remove
(is (= (new-empty-set)
(doto (new-empty-set)
(.add "xyz")
(.remove "xyz")))))
然后你会以各种方式运行它们。使用maven clojure插件构建Maven等工具会自动运行它们作为“mvn test”的一部分。在repl中,您可以执行以下操作:
example.test-java-util> (run-tests 'example.test-java-util)
Testing example.test-java-util
Ran 1 tests containing 4 assertions.
0 failures, 0 errors.
{:type :summary, :test 1, :pass 4, :fail 0, :error 0}
答案 1 :(得分:4)
以下是使用Leiningen,test.check并假设标准Maven布局的示例:
pom.xml
project.clj
src
main
java
quicktest
Discontinuities.java
test
clojure
quicktest
test_discontinuities.clj
要测试的Java函数:
package quicktest;
public class Discontinuities {
public static double f5(double x) {
return x / (x-5);
}
}
Clojure测试案例:
(ns quicktest.test-discontinuities
(:import [quicktest Discontinuities])
(:require [clojure.test :refer :all]
[clojure.test.check :as tc]
[clojure.test.check.generators :as gen]
[clojure.test.check.properties :as prop]
[clojure.test.check.clojure-test :as ct :refer (defspec)]))
(deftest test-single-case
(is (= 2.0 (Discontinuities/f5 10))))
(defspec test-discontinuities 1e4
(prop/for-all [x gen/nat ]
(let [y (Discontinuities/f5 x)]
(is (<= y x)))))
项目:
(defproject quicktest/discontinuities "0.1"
:dependencies [[org.clojure/clojure "1.8.0"]
[org.clojure/test.check "0.9.0"]]
:java-source-paths ["src/main/java"]
:test-paths ["src/test/clojure"])
pom:
<?xml version="1.0" encoding="UTF-8"?>
<project xmlns="http://maven.apache.org/POM/4.0.0"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/xsd/maven-4.0.0.xsd">
<modelVersion>4.0.0</modelVersion>
<groupId>quicktest</groupId>
<artifactId>discontinuities</artifactId>
<version>0.1</version>
</project>
使用以下命令运行:
mvn compile
lein deps
lein test
<强>结果
很快就找到了函数中的缺陷:
FAIL in (test-discontinuities) (test_discontinuities.clj:13)
expected: (<= y x)
actual: (not (<= Infinity 5))
{:test-var "test-discontinuities",
:result false,
:seed 1431128331945,
:failing-size 23,
:num-tests 24,
:fail [5],
:shrunk {:total-nodes-visited 3, :depth 0, :result false, :smallest [5]}}