Clojure.test 抛出？不在 repl 中工作

Question

根据 clojure.test 源中的文档字符串，我在 repl 中发出以下内容:

(use 'clojure.test)
(is (thrown? ArithmeticException (/ 1 0)))

以及其他变体，例如用 java.lang.ArithmeticException 替换 ArithmeticException。然而，异常从未被 clojure.test 捕获，而是一直冒泡到顶部:

> #error {  :cause "Divide by zero"  :via  [{:type java.lang.ArithmeticException    :message "Divide by zero"    :at
> [clojure.lang.Numbers divide "Numbers.java" 158]}]  :trace 
> [[clojure.lang.Numbers divide "Numbers.java" 158]  
> [clojure.lang.Numbers divide "Numbers.java" 3808]   [api.core$eval1305
> invokeStatic "form-init8750388124499546857.clj" 1]  
> [api.core$eval1305 invoke "form-init8750388124499546857.clj" 1]  
> [clojure.lang.Compiler eval "Compiler.java" 6927]  
> [clojure.lang.Compiler eval "Compiler.java" 6890]   [clojure.core$eval
> invokeStatic "core.clj" 3105]   [clojure.core$eval invoke "core.clj"
> 3101]   [clojure.main$repl$read_eval_print__7408$fn__7411 invoke
> "main.clj" 240]   [clojure.main$repl$read_eval_print__7408 invoke
> "main.clj" 240]   [clojure.main$repl$fn__7417 invoke "main.clj" 258]  
> [clojure.main$repl invokeStatic "main.clj" 258]   [clojure.main$repl
> doInvoke "main.clj" 174]   [clojure.lang.RestFn invoke "RestFn.java"
> 1523]  
> [clojure.tools.nrepl.middleware.interruptible_eval$evaluate$fn__667
> invoke "interruptible_eval.clj" 87]   [clojure.lang.AFn applyToHelper
> "AFn.java" 152]   [clojure.lang.AFn applyTo "AFn.java" 144]  
> [clojure.core$apply invokeStatic "core.clj" 646]  
> [clojure.core$with_bindings_STAR_ invokeStatic "core.clj" 1881]  
> [clojure.core$with_bindings_STAR_ doInvoke "core.clj" 1881]  
> [clojure.lang.RestFn invoke "RestFn.java" 425]  
> [clojure.tools.nrepl.middleware.interruptible_eval$evaluate
> invokeStatic "interruptible_eval.clj" 85]  
> [clojure.tools.nrepl.middleware.interruptible_eval$evaluate invoke
> "interruptible_eval.clj" 55]  
> [clojure.tools.nrepl.middleware.interruptible_eval$interruptible_eval$fn__712$fn__715
> invoke "interruptible_eval.clj" 222]  
> [clojure.tools.nrepl.middleware.interruptible_eval$run_next$fn__707
> invoke "interruptible_eval.clj" 190]   [clojure.lang.AFn run
> "AFn.java" 22]   [java.util.concurrent.ThreadPoolExecutor runWorker
> "ThreadPoolExecutor.java" 1142]  
> [java.util.concurrent.ThreadPoolExecutor$Worker run
> "ThreadPoolExecutor.java" 617]   [java.lang.Thread run "Thread.java"
> 745]]}

可能是什么？ clojure.test 中的其他内容确实可以按预期在 repl 中工作。

版本信息:

Leiningen 2.7.1 on Java 1.8.0_101 Java HotSpot(TM) 64-Bit Server VM

> nREPL server started on port 44025 on host 127.0.0.1 -
> nrepl://127.0.0.1:44025 REPL-y 0.3.7, nREPL 0.2.12 Clojure 1.8.0 Java
> HotSpot(TM) 64-Bit Server VM 1.8.0_101-b13

Answer 1

使用它/将其包装在(clojure.test/ deftest ...)

<小时/>

假设:

(require '[clojure.test :as t])

传递示例

(t/deftest a 
  (t/testing "a test" 
    (t/is (thrown? ArithmeticException (/ 1 0)))))

(a)
nil

失败示例

(t/deftest a 
  (t/testing "a test" 
    (t/is (thrown? NullPointerException (/ 1 0)))))

(a)
; ERROR in (a) (Numbers.java:158)
; a test
; expected: (thrown? NullPointerException (/ 1 0))
; actual: java.lang.ArithmeticException: Divide by zero

您还可以使用t/run-tests来获取摘要/统计信息

<小时/>

或者，您似乎可以像这样直接使用t/test-var

(t/test-var (t/is (thrown? ArithmeticException (/ 1 0))))
nil