updated all tests to use t/ and created is-spec-check and is-spec-check-with-gen

Author: marke000

src/provisdom/test/core.cljc

@@ -486,3 +486,24 @@
   ([name sym-or-syms] `(defspec-test ~name ~sym-or-syms nil))
   ([name sym-or-syms opts]
    `(t/deftest ~name (do-spec-check-report ~sym-or-syms ~opts))))
+
+#?(:clj (defmacro is-spec-check
+          "Runs generative tests for spec conformance and reports results.
+          Equivalent to (is (spec-check ...)) but more direct.
+
+          See `spec-check` for available options."
+          ([sym-or-syms] `(is-spec-check ~sym-or-syms {}))
+          ([sym-or-syms opts]
+           `(do-spec-check-report ~sym-or-syms ~opts))))
+
+#?(:clj (defmacro is-spec-check-with-gen
+          "Runs generative tests with custom generators and reports results.
+          Takes gen-map as first argument for convenience when custom generators
+          are always needed.
+
+          gen-map is a map from spec names to generator functions.
+          See `spec-check` for other available options."
+          ([gen-map sym-or-syms] `(is-spec-check-with-gen ~gen-map ~sym-or-syms {}))
+          ([gen-map sym-or-syms opts]
+           (let [merged-opts (merge {:gen gen-map} opts)]
+             `(do-spec-check-report ~sym-or-syms ~merged-opts)))))

test/provisdom/test/core_test.cljc

@@ -171,17 +171,17 @@
   (t/is-valid int? 1))
 
 (deftest data-approx=-test
-  (is (t/data-approx=
-        {:a 1.0
-         :b #{1.0}}
-        {:a 1.0000001
-         :b #{1.0}}))
-  (is (t/data-approx=
-        {:a 1.0}
-        {:a 1.001}
-        {:tolerance 1e-2}))
-  (is (t/data-approx= [[1.0000001]] [[1.0]]))
-  (is (not (t/data-approx= {:a 1} {:b 1})))
-  (is (not (t/data-approx=
-             {:a 1.0}
-             {:a 1.01}))))
+  (t/is-data-approx=
+    {:a 1.0
+     :b #{1.0}}
+    {:a 1.0000001
+     :b #{1.0}})
+  (t/is-data-approx=
+    {:a 1.0}
+    {:a 1.001}
+    :tolerance 1e-2)
+  (t/is-data-approx= [[1.0000001]] [[1.0]])
+  (t/is-not (#'t/data-approx= {:a 1} {:b 1}))
+  (t/is-not (#'t/data-approx=
+              {:a 1.0}
+              {:a 1.01})))