3

在这个SO post 之后,我想在我的函数中打印前提条件的值。但是在以下情况下它对我来说失败了(可能是解构):

我有一个dir?辅助功能(随意跳过这个):

(defn dir? [s]
  "returns true if the string passed is is an existing directory"
  (->> (clojure.java.io/file s)
       ((juxt #(.exists %) #(.isDirectory %)))
       (every? true?)))

它工作得很好,并且使用is宏,我得到了一些很好的错误消息,我可以看到测试和传递的参数:

(is (dir? (io/file "resources/static"))) ;; => true

(is (dir? (io/file "resources/statice"))) ;; typo, error below

clojure.lang.PersistentList$EmptyList@1 (boot.user4515592986834245937.clj:86) 中的失败预期:(dir?(io/file "resources/statice")) 实际:(not (dir?#object[java.io.文件 0x6730a420 “资源/静态”]))

但是,当尝试在前提条件中使用它时:pre,我得到一个丑陋的错误:

(defn make-something
  [&{:keys [dir]
     :or {dir "default-dir"}}]
  {:pre [(is (dir? (clojure.java.io/file dir)))]}
  ;;... do something with these
 )

(make-something :dir "resources/statices") ;; doesn't exist

clojure.lang.Compiler$CompilerException: java.lang.AssertionError: Assert failed: (is (dir? (io/file dir))), 编译:(boot.user4515592986834245937.clj:80:12) java.lang.AssertionError:断言失败:(是(dir?(io/file dir)))

我怎样才能在我的函数中得到一个很好的错误消息,就像上面的一样?

万一这很重要,我使用的是 Clojure 1.7。

4

1 回答 1

1

您需要检查您的代码(dir?函数)。以下片段对我有用:

(require '[clojure.java.io :as io])

(defn dir? [s]
  (let [dir (io/file s)]
    (and (.exists dir)
         (.isDirectory dir))))

(defn make-something
  [& {:keys [dir] :or {dir "default-dir"}}]
  {:pre [(is (dir? dir))]}
  (println dir))

(make-something :dir "/tmp")
out => /tmp
ret => nil

(make-something :dir "/xxxx")
FAIL in clojure.lang.PersistentList$EmptyList@1 (form-init3332271312167175068.clj:1)
expected: (dir? dir)
actual: (not (dir? "/xxxx"))

AssertionError Assert failed: (is (dir? dir))  user/make-sth (form-init3332271312167175068.clj:1)
于 2016-03-16T16:58:10.687 回答