如何使用clojure.test将一个值从夹具传递给测试?

时间:2015-07-30 22:55:00

标签: testing clojure fixtures

使用clojure.test's use-fixture时,有没有办法将一个值从fixture函数传递给测试函数?

2 个答案:

答案 0 :(得分:7)

一些不错的选择是动态绑定和with-redefs。您可以从fixture中的测试命名空间绑定var,然后在测试定义中使用它:

core.clj:

(ns hello.core
  (:gen-class))

 (defn foo [x]
  (inc x))

测试/你好/ core.clj:

(ns hello.core-test
  (:require [clojure.test :refer :all]
            [hello.core :refer :all]))

(def ^:dynamic *a* 4)

(defn setup [f]
  (binding [*a* 42]
    (with-redefs [hello.core/foo (constantly 42)]
      (f))))

(use-fixtures :once setup)

(deftest a-test
  (testing "testing the number 42"
    (is (= *a* (foo 75)))))

您可以通过比较直接调用测试(不使用灯具)与通过run-tests调用它来判断它的工作原理:

hello.core-test> (a-test)

FAIL in (a-test) (core_test.clj:17)
testing the number 42
expected: (= *a* (foo 75))
  actual: (not (= 4 76))
nil
hello.core-test> (run-tests)

Testing hello.core-test

Ran 1 tests containing 1 assertions.
0 failures, 0 errors.
{:test 1, :pass 1, :fail 0, :error 0, :type :summary}

这种方法有效,因为灯具靠近它们运行的​​测试,虽然它们不能直接(通常)实际调用测试函数,所以使用闭包是有意义的将信息传递给测试代码。

答案 1 :(得分:0)

也许不是一个直接的答案,但如果您的灯具无论如何都是:each灯具,或者您可以容忍它是一个:each灯具,您可以选择并创建一个set-up函数返回相关状态并将其称为测试的第一行,而不是使用夹具。对于某些情况,这可能是最佳方法。

(defn set-up [] (get-complex-state))

(deftest blah
   (let [state (set-up)]
     (frobnicate)
     (query state)
     (tear-down state)))