transit-cljs tests added

Author: awb99

.github/workflows/ci.yml

@@ -32,6 +32,8 @@ jobs:
       shell: bash
     - name: test-clj
       run: clojure -M:test
+    - name: test-cljs
+      run: ./cljs-test.sh
     - name: Release
       if: success()
       # if: github.event_name == 'push'

cljs-test.sh

@@ -0,0 +1,5 @@
+#!/bin/bash
+
+clojure -X:webly:npm-install
+clojure -X:webly:build-ci
+npm test

src/modular/encoding/transit.cljc

@@ -35,6 +35,11 @@
        (transit/write writer data)
        (.toString out))))
 
+#?(:cljs
+   (defn write-transit [data]
+     (let [writer (transit/writer :json encode)]
+       (transit/write writer data))))
+
 #?(:clj
    (defn string->stream
      ([s] (string->stream s "UTF-8"))
@@ -49,6 +54,11 @@
            reader (transit/reader in :json decode)]
        (transit/read reader))))
 
+#?(:cljs
+   (defn read-transit [data]
+     (let [reader (transit/reader :json decode)]
+       (transit/read reader data))))
+
 #?(:clj
    (defn spit-transit [filename data]
      (->> (write-transit data)

test/modular/encoding/demo_data.cljc

@@ -1,10 +1,12 @@
 (ns modular.encoding.demo-data
   (:require
+   [tick.core :as t]
    [modular.date :refer [now-local now-date now-instant]]
    [modular.encoding.bidi :refer [demo-bidi-tag]]))
 
 (def demo-data {:a 34
-                :date-local (now-local)
-                :date (now-date)
-                :date-instant (now-instant)
-                :b demo-bidi-tag})
+                :date {:date-local (t/date-time) ; (now-local)
+                       :date (t/date) ;(now-date)
+                       :date-instant (t/instant) ; (now-instant)
+                       :date-zoned (t/zoned-date-time)}
+                :bidi {:b demo-bidi-tag}})

test/modular/encoding/transit_test.cljs

@@ -2,18 +2,28 @@
   (:require
    [cljs.test :refer-macros [async deftest is testing]]
    [bidi.bidi :as bidi]
-   ;[modular.encoding.transit :refer [write-transit read-transit]]
+   [modular.encoding.transit :refer [write-transit read-transit]]
    [modular.encoding.edn :refer [read-edn]]
    [modular.encoding.demo-data :refer [demo-data]]))
 
 (println "encoding test running.")
 
 (deftest encoding-edn-test []
   (let [t (pr-str demo-data)]
-    (println "encoded data: " t)
+    (println "EDN encoded data: " t)
     (is (= demo-data (read-edn t)))))
 
-#_(deftest encoding-transit-test []
-    (let [t (write-trnsit demo-data)]
+(deftest encoding-transit-simple-test []
+  (let [data (dissoc demo-data :date :bidi)
+        t (write-transit data)]
+    (is (= data (read-transit t)))))
+
+(deftest encoding-transit-date-test []
+  (let [data (dissoc demo-data :bidi)
+        t (write-transit data)]
+    (is (= data (read-transit t)))))
+
+#_(deftest encoding-transit-bidi-test []
+    (let [t (write-transit demo-data)]
       (is (= demo-data (read-transit t)))))