trying to extend testing to cljs

package.json

@@ -50,7 +50,7 @@
     "share": "ngrok http --host-header=rewrite 8080",
     "serve:prod": "npm run build && http-server dist",
     "serve:dev": "http-server public",
-    "test": "clojure src/test/core.clj"
+    "test": "clojure src/test/core.cljc"
   },
   "devDependencies": {
     "fs-extra": "^9.0.0",

src/main/utils/core.cljc

@@ -8,9 +8,9 @@
    [clojure.string :as str]
    [project-specs :as pspecs]
    #?(:clj [clojure.spec.test.alpha :as stest]
-      :cljs [cljs.spec.test.alpha :as stest])
+      :cljs [cljs.spec.test.alpha :as stest :include-macros true])
    #?(:clj [clojure.spec.alpha :as s]
-      :cljs [cljs.spec.alpha :as s])
+      :cljs [cljs.spec.alpha :as s] :include-macros true)
    #?(:clj [clojure.data.json :as json])))
 
 (def championships
@@ -39,26 +39,16 @@
 
 #?(:clj (defn max-val [m] {:max (reduce max m)}))
 #?(:cljs (defn max-val [m] (reduce max m)))
-#?(:clj
-   (s/fdef max-val
-     :args ::pspecs/max-val-args
-     :ret ::pspecs/max-val-ret))
-#?(:cljs
-   (s/fdef max-val
-     :args ::pspecs/ranges
-     :ret ::pspecs/range))
+(s/fdef max-val
+  :args #?(:clj ::pspecs/max-val-args :cljs ::pspecs/ranges)
+  :ret #?(:clj ::pspecs/max-val-ret :cljs ::pspecs/range))
 (stest/instrument `max-val)
 
 #?(:clj (defn min-val [m] {:min (reduce min m)}))
 #?(:cljs (defn min-val [m] (reduce min m)))
-#?(:clj
-   (s/fdef min-val
-     :args ::pspecs/min-val-args
-     :ret ::pspecs/min-val-ret))
-#?(:cljs
-   (s/fdef min-val
-     :args ::pspecs/ranges
-     :ret ::pspecs/range))
+(s/fdef min-val
+  :args #?(:clj ::pspecs/min-val-args :cljs ::pspecs/ranges)
+  :ret #?(:clj ::pspecs/min-val-ret :cljs ::pspecs/range))
 (stest/instrument `min-val)
 
 (defn merge-maps [v] (apply merge v))
@@ -166,6 +156,10 @@
      "||u|| = √(u1 + u2)"
      [[x y]]
      (js/Math.sqrt (+ (js/Math.pow x 2) (js/Math.pow y 2)))))
+(s/fdef vector-length
+  :args ::pspecs/point
+  :ret ::pspecs/int-or-double)
+(stest/instrument `vector-length)
 
 #?(:cljs
    (defn dot-product

src/specs/project_specs.cljc

@@ -7,6 +7,7 @@
 (s/def ::max ::int-or-double)
 (s/def ::min ::int-or-double)
 (s/def ::max-val-args (s/cat :values (s/coll-of ::max :min-count 1)))
+(s/def ::point (s/cat :vector (s/coll-of ::int-or-double :kind vector? :count 2)))
 (s/def ::min-val-args (s/cat :values (s/coll-of ::min :min-count 1)))
 (s/def ::max-val-ret (s/keys :req-un [::max]))
 (s/def ::min-val-ret (s/keys :req-un [::min]))

src/test/core.clj → src/test/core.cljc

@@ -1,11 +1,17 @@
+; TODO: check this!
+; https://code.thheller.com/blog/shadow-cljs/2019/10/12/clojurescript-macros.html
+; https://clojurescript.org/about/differences#_macros
+; https://bauerspace.com/refer-a-macro-with-cljc/
+; https://hackernoon.com/clojure-macros-lessons-from-unspoken-symbols-c4945d8ed8bf
+; https://github.com/anmonteiro/lumo/blob/2b4bc09f768fc57164cebc99a90b95bdb1a26762/src/test/cljs_build/test_check/core_test.cljs
 (ns test.core
   (:require
-   [clojure.spec.test.alpha :as stest]
+   #?(:clj [clojure.spec.test.alpha :as stest]
+      :cljs [cljs.spec.test.alpha :as stest :include-macros true])
    [clojure.set :refer [project]]
    [clojure.pprint :refer [pprint]]
    [utils.core]))
 
-; TODO: automate clojurescript testing also...?
 (defn has-error?
   [results]
   (let [errors (reduce (fn [acc cur] (or (some? cur) acc)) false results)
@@ -36,4 +42,3 @@
     (#(project % [:cause]))
     vec
     has-error?)
-