We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent e316b2e commit 9e5d08fCopy full SHA for 9e5d08f
clj/src/vim_clojure_static/test.clj
@@ -80,9 +80,11 @@
80
[(concat strings ss)
81
(conj contexts {:fmt fmt :ss ss :λs λs})]))
82
[[] []] body)
83
+ test-file (str "tmp/" name ".clj")
84
syntable (gensym "syntable")]
85
`(test/deftest ~name
- (let [~syntable (syn-id-names (str "tmp/" ~(str name) ".clj") ~@strings)]
86
+ (spit ~test-file "")
87
+ (let [~syntable (syn-id-names ~test-file ~@strings)]
88
~@(map (fn [{:keys [fmt ss λs]}]
89
`(test/testing ~fmt
90
~@(map (fn [s λ] `(test/is (~λ (subfmt ~fmt (get ~syntable ~s)))))
0 commit comments