Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (20 sloc) 659 Bytes
(ns circumspec)
(defn- migrate
"Like immigrate, but takes a map of ns -> varnames."
[ns-var-map]
(doseq [[ns syms] ns-var-map]
(require ns)
(doseq [sym syms]
(let [var (ns-resolve ns sym)]
(let [sym (with-meta sym (assoc (meta var) :ns *ns*))]
(if (.hasRoot var)
(intern *ns* sym (.getRoot var))
(intern *ns* sym)))))))
(migrate
{'circumspec.context '[describe]
'circumspec.test '[testing it testing-fn]
'circumspec.for '[for-these]
'circumspec.should '[should]
'circumspec.locator '[test-namespaces tests]
'circumspec.runner '[run-tests]
'circumspec.watch '[re-test watch stop]})
Something went wrong with that request. Please try again.