ol/chap_10.clj ol/test/chap_10.clj @@ -5,3 +5,17 @@ (throw (RuntimeException. (str "Expected " ~cl))) (catch ~cl e# e#))) +(defmacro expect + "Evaluates expr and returns it, or throws an exception +if it does not evaluate to logical true." + [& x] + `(let [result# ~x] + (if result# + result# + (throw (new Exception (str "Expect failed: " (pr-str '~x))))))) + +(defmacro ns-reload! [ns] + `(do + (if (find-ns '~ns) + (remove-ns '~ns)) + (require :reload-all '~ns))) ol/test/util.clj 7fe0c2239fea90b0e3c0f3d537a3269a223e6f65 Stuart Halloway stu@thinkrelevance.com http://github.com/stuarthalloway/onlisp-clojure/commit/09c28ee6fa3ca24312459aa7a8bc86c3884d3fd2 09c28ee6fa3ca24312459aa7a8bc86c3884d3fd2 2008-12-20T18:08:29-08:00 2008-12-20T18:08:29-08:00 chapter 10 examples 5992a743549be67f395681fde94597806569d411 Stuart Halloway stu@thinkrelevance.com