从Clojure Repl和Leiningen运行测试

Question

作为Clojure的新手，我使用leiningen创建了一个示例项目

lein new app first-project

它给了我这个目录

.
├── doc
│   └── intro.md
├── LICENSE
├── project.clj
├── README.md
├── resources
├── src
│   └── first_project
│       └── core.clj
├── target
│   └── repl
│       ├── classes
│       └── stale
│           └── extract-native.dependencies
└── test
    └── first_project
        └── core_test.clj

在不修改任何文件的情况下，我可以使用

lein test
...
Ran 1 tests containing 1 assertions.
1 failures, 0 errors.
Tests failed.

但是我无法使用运行测试从REPL做同样的事情

lein repl
first-project.core=> (use 'clojure.test)
nil
first-project.core=> (run-tests)

Testing first-project.core

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

我试过（但不起作用）

(require 'first-project.core-test)

Answer 1

匿名用户

重述：

要求的方式

只有在您先前在ns中发布了时，才需要对功能进行全面鉴定。然后做：

(clojure.core/require '[clojure.core :refer [require]]
                      '[clojure.test :refer [run-tests]]
                      '[clojure.repl :refer [dir]])

; Load whatever is in namespace "foo.bar-test" and reload everything
; if `:reload-all` has been additionally given

(require 'foo.bar-test :reload-all) 
;=> nil

; List your tests for good measure (Note: don't quote the namespace symbol!)

(dir foo.bar-test)
;=> t-math
;=> t-arith
;=> t-exponential
;=> nil 

; Check meta-information on a test to verify selector for example 

(meta #'foo.bar-test/t-math)
;=> {:basic-math true, :test #object[foo.bar_tes...

; `run-tests` will probably run nothing because the current namespace
; doesn't contain any tests, unless you have changed it with "in-ns"

(run-tests) 
;=> Ran 0 tests containing 0 assertions.

; run tests by giving namespace explicitly instead

(run-tests 'foo.bar-test) 
;=> Ran 3 tests containing 29 assertions.

Answer 2

在上面的示例中，repl位于错误的命名空间中。如果您将repl切换到core_test命名空间，然后运行（run-test），可能会更好。

(in-ns 'first-project.core-test)
(run-tests)

开发测试的另一种有趣的方法是从REPL运行它们，直到它们工作为止，因为测试是带有一些额外元数据的正常函数。

(in-ns 'first-project.core-test)
(my-test)

请记住，除了在ns中调用之外，您还必须加载文件，假设您的测试文件是tests/first\u project/core\u test。clj，然后您需要呼叫

(load "tests/first_project/core_test")
(in-ns 'first-project.core-test)
(my-test)

请记住，文件系统中的\u在命名空间中变成-，而/变成 。

Answer 3

使用lein repl启动REPL，然后使用要求

(require '[clojure.test :refer [run-tests]])
(require 'your-ns.example-test :reload-all)
(run-tests 'your-ns.example-test)

我更喜欢呆在user名称空间中，而不是像另一个答案中提到的那样在ns中使用来更改名称空间。相反，将名称空间作为参数传递给运行测试（如上所示）。

我还建议远离（使用'clojure.test）；这就是为什么我在上面建议（需要'[clojure.test：参考[运行测试]]）。有关更多背景，请阅读http://dev.clojure.org/jira/browse/CLJ-879