Clojure: предварительное сообщение об ошибке при деструкции

Question

После этого 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 

FAIL in clojure.lang.PersistentList$EmptyList@1 (boot.user4515592986834245937.clj:86) expected: (dir? (io/file "resources/statice")) actual: (not (dir? #object[java.io.File 0x6730a420 "resources/statice"]))

Однако, при попытке использовать I т в предпосылке :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))), compiling:(boot.user4515592986834245937.clj:80:12) java.lang.AssertionError: Assert failed: (is (dir? (io/file dir)))

Как я могу получить сообщение об ошибке хорошего в моей функции так же, как один из приведенной выше?

В случае, если это имеет значение, я использую Clojure 1.7.

Answer 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)