用clojure.test开发一个“慢”测试套件

Question

我希望这个测试能在每个lein test上运行。

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

(deftest ackermann-test
  (testing "ack-1, ack-2, ack-3"
    (are [m n e]
         (= (ack-1 m n) (ack-2 m n) (ack-3 m n) e)
         0 0  1
         0 1  2
         0 2  3
         1 0  2
         1 1  3
         1 2  4
         2 0  3
         2 1  5
         2 2  7
         3 0  5
         3 1 13
         3 2 29)))

我只想让ackermann-slow-test只在我要求的时候运行：

(deftest ackermann-slow-test
  (testing "ackermann (slow)"
    (are [m n e] (= (ack-3 m n) e)
         3 3     61
         3 4    125
         4 0     13
         4 1  65533)))

完整的代码可以在Github：https://github.com/bluemont/ackermann上找到。

Answer 1

根据Phil的Making Leiningen work for You，test-selectors特性是在1.4版中添加到Leiningen中的。

两个简单的步骤。首先，将其添加到project.clj中

:test-selectors {:default (complement :slow)
                 :slow :slow
                 :all (constantly true)}

其次，用元数据标记您的测试：

(deftest ^:slow ackermann-slow-test
  (testing "ackermann (slow)"
    (are [m n e] (= (ack-3 m n) e)
         3 3     61
         3 4    125
         4 0     13
         4 1  65533)))

现在，您有三个运行测试的选项：

⚡ lein test
⚡ lein test :slow
⚡ lein test :all

而且，这些信息在lein test -h中很容易找到。

运行项目的测试。 使用元数据标记deftest或ns窗体允许您选择选择器来指定要运行的测试套件的子集： (deftest ^：集成网络-重测试(is (= 1 2 3) 在project.clj中编写选择器： *测试选择器{:default (补语:集成)：集成:集成:all (不断为真)} 如果参数是关键字，则该任务的参数将被视为测试选择器，否则参数必须是要运行的测试名称空间或文件。如果没有参数，则使用:默认测试选择器，否则将运行所有测试。测试选择器参数必须位于命名空间列表之后。 默认情况:只有测试选择器可以运行select测试。例如，lein test :only leiningen.test.test/test-default-selector只运行指定的测试。默认情况:所有测试选择器都可以运行所有测试。 论据：(及测试)