Clojure世界：单元测试

单元测试也是一个开发中最常见的需求&＃xff0c;在Java里我们用JUnit或者TestNG&＃xff0c;在clojure里也内置了单元测试的库。标准库的clojure.test&＃xff0c;以及第三方框架midje。这里我将主要介绍clojure.test这个标准库&＃xff0c;midje是个更加强大的测试框架&＃xff0c;广告下&＃xff0c;midje的介绍在第二次cn-clojure聚会上将有个Topic&＃xff0c;我就不画蛇添足了。通常来说&＃xff0c;clojure.test足够让你对付日常的测试。

首先看一个最简单的例子&＃xff0c;定义一个函数square来计算平方&＃xff0c;然后我们测试这个函数&＃xff1a;

;;引用clojure.test
(ns example
  (:use [clojure.test :only [deftest is run-tests]]))
;;定义函数
(defn square [x]
  (* x x))
;;测试函数
(deftest test-square
  (is (&＃61; 4 (square 2)))
  (is (&＃61; 9 (square -3))))
;;运行测试
(run-tests &＃39;example)

执行输出&＃xff1a;

Testing example

Ran 1 tests containing 2 assertions.
0 failures, 0 errors.

这个小例子基本说明了clojure.test的主要功能。首先是断言is&＃xff0c;类似JUnit里的assertTrue&＃xff0c;用来判断form是否为true&＃xff0c;它还可以接受一个额外的msg参数来描述断言&＃xff1a;

(is (&＃61; 4 (square 2)) "a test")

它还有两种变形&＃xff0c;专门用来判断测试是否抛出异常&＃xff1a;

(is (thrown? RuntimeException (square "a")))
(is (thrown-with-msg? RuntimeException #"java.lang.String cannot be cast to java.lang.Number" (square "a")))

上面的例子故意求"a"的平方&＃xff0c;这会抛出一个java.lang.ClassCastException&＃xff0c;一个运行时异常&＃xff0c;并且异常信息为java.lang.String cannot be cast to java.lang.Number。我们可以通过上面的方式来测试这种意外情况。clojure.test还提供了另一个断言are&＃xff0c;用来判断多个form&＃xff1a;

(testing "test zero or one"
    (are
     (&＃61; 0 (square 0))
     (&＃61; 1 (square 1))))

are接受多个form并判断是否正确。这里还用了testing这个宏来添加一段字符串来描述测试的内容。

其次&＃xff0c;我们用deftest宏定义了一个测试用例&＃xff0c;deftest定义的测试用例也可以组合起来&＃xff1a;

   (deftest addition
     (is (&＃61; 4 (&＃43; 2 2)))
     (is (&＃61; 7 (&＃43; 3 4))))
   (deftest subtraction
     (is (&＃61; 1 (- 4 3)))
     (is (&＃61; 3 (- 7 4))))
   (deftest arithmetic
     (addition)
     (subtraction))

但是组合后的tests运行就不能简单地传入一个ns&＃xff0c;而需要定义一个test-ns-hook指定要跑的测试用例&＃xff0c;否则组合的用例如上面的addition和subtraction会运行两次。我们马上谈到。

定义完用例后是运行测试&＃xff0c;运行测试使用run-tests&＃xff0c;可以指定要跑测试的ns&＃xff0c;run-tests接受可变参数个的ns。刚才提到&＃xff0c;组合tests的时候会有重复运行的问题&＃xff0c;要防止重复运行&＃xff0c;可以定义一个test-ns-hook的函数&＃xff1a;

(defn test-ns-hook []
(test-square)
(arithmetic))

这样run-tests就会调用test-ns-hook按照给定的顺序执行指定的用例&＃xff0c;避免了重复执行。

在你的测试代码里明确调用run-tests执行测试是一种方式&＃xff0c;不过我们在开发中更经常使用的是lein来管理project&＃xff0c;lein会将src和test分开&＃xff0c;将你的测试代码组织在专门的test目录&＃xff0c;类似使用maven的时候我们将main和test分开一样。这时候就可以简单地调用:

lein test

命令来执行单元测试&＃xff0c;而不需要明确地在测试代码里调用run-tests并指定ns。更实用的使用例子可以看一些开源项目的组织。

单元测试里做mock也是比较常见的需求&＃xff0c;在clojure里做mock很容易&＃xff0c;原来clojure.contrib有个mock库&＃xff0c;基本的原理都是利用binding来动态改变被mock对象的功能&＃xff0c;但是在clojure 1.3里&＃xff0c;binding只能改变标注为dynamic的变量&＃xff0c;并且clojure.contrib被废弃&＃xff0c;部分被合并到core里面&＃xff0c;Allen Rohner编译了一个可以用于clojure 1.3的clojure.contrib&＃xff0c;不过需要你自己install到本地仓库&＃xff0c;具体看这里。不过clojure.contrib.mock哪怕使用1.2的编译版本其实也是可以的。

clojure.contrib最重要的是expect宏&＃xff0c;它类似EasyMock里的expect方法&＃xff0c;看一个例子&＃xff1a;

(use [clojure.contrib.mock :only [times returns has-args expect]])

(deftest test-square2
(expect [square (has-args [number?] (times 2 (returns 9)))]
(is (&＃61; 9 (square 4)))))

has-args用来检测square的参数是不是number&＃xff0c;times用来指定预期调用的次数&＃xff0c;而returns用来返回mock值&＃xff0c;是不是很像EasyMock&＃xff1f;因为我们这个测试只调用了square一次&＃xff0c;所以这个用例将失败&＃xff1a;

Testing example
"Unexpected invocation count. Function name: square expected: 2 actual: 1"

这个例子要在Clojure 1.3里运行&＃xff0c;需要将square定义成dynamic&＃xff1a;

(defn ^:dynamic square [x]
(* x x))

否则会告诉你没办法绑定square:

actual: java.lang.IllegalStateException: Can&＃39;t dynamically bind non-dynamic var: example/square

额外提下&＃xff0c;还有个轻量级的测试框架expections可以看一下&＃xff0c;类似Ruby Facker的facker库提供一些常见的模拟数据&＃xff0c;如名称地址等

文章转自庄周梦蝶 &＃xff0c;原文发布时间2012-02-15