clojure.test (抛出？.)看不到例外

Question

我有一个函数param-values，它在解放者上下文中找不到密钥时抛出一个IllegalArgumentException。为此，我有一个clojure.test单元测试：

(testing "Non-existing key" 
  (is (thrown? IllegalArgumentException (param-values ctx [:baz]))))

由于某些原因，这个测试失败了，尽管我可以看到我的函数在REPL中正确运行：

user> (param-values ctx [:baz])
IllegalArgumentException Missing required param baz  resources/param-value (resources.clj:57)

user> (is (thrown? IllegalArgumentException (param-values ctx [:baz])))

FAIL in clojure.lang.PersistentList$EmptyList@1 (form-init2687593671136401208.clj:1)
expected: (thrown? IllegalArgumentException (param-values ctx [:baz]))
  actual: nil

param-values本身非常简单，它只是在指定的arg上使用param-value映射。

(defn param-values [ctx args & [{:keys [optional-args] :as opts}]]
  (let [params (or (get-in ctx [:request :params]) {})
        args (concat args optional-args)]
    (map #(param-value params % opts) args)))

当然，我还要对param-value进行更深入的测试，其中之一是：

(testing "Arg not present"
    (is (thrown-with-msg?
         IllegalArgumentException #"Missing required param baz"
         (param-value {} :baz))))

这个测试通过了！

怎么回事？是关于我没有用clojure.test/is宏做的事情吗？我是不是有个太厚而看不见的错误？

Answer 1

是因为param-values返回一个惰性序列吗？

当使用thrown-with-msg?时，它对(param-value {} :baz)的返回值调用re-find，从而计算延迟序列。如果只是使用thrown?，则不会发生这种情况。

你能试试这个吗？

(is (thrown? IllegalArgumentException
      (doall (param-values ctx [:baz]))))

doall将评估懒惰序列。

基于评论的更新

由于您对延迟序列的返回值不感兴趣，而只对副作用(抛出异常)感兴趣，所以倾向于使用dorun而不是doall。