Tag every corpus row with :portability (:common vs :jvm)
Dialects without JVM interop can now filter the conformance corpus: :jvm marks rows exercising host interop (java.*/clojure.lang.* class references, dot forms, ctors, statics, arrays, proxy/bean), :common is portable Clojure any dialect must satisfy. 3565 rows tagged (3175 common / 390 jvm), the key documented in the row schema, and regen-corpus preserves it on rewrite. Closes #289.
This commit is contained in:
parent
ce8e89ca86
commit
d6d11d5748
3 changed files with 3578 additions and 3571 deletions
|
|
@ -99,11 +99,12 @@
|
|||
[row :kept])))
|
||||
|
||||
;; --- corpus writer (preserves the one-row-per-line layout) -------------------
|
||||
(defn row-str [{:keys [suite label expected actual]}]
|
||||
(defn row-str [{:keys [suite label expected actual portability]}]
|
||||
(str " {:suite " (pr-str suite)
|
||||
" :label " (pr-str label)
|
||||
" :expected " (if (= expected :throws) ":throws" (pr-str expected))
|
||||
" :actual " (pr-str actual) "}"))
|
||||
" :actual " (pr-str actual)
|
||||
(when portability (str " :portability " portability)) "}"))
|
||||
|
||||
(defn -main [& _]
|
||||
(let [corpus (edn/read-string (slurp corpus-path))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue