Added spec assert

src/main/cljc/org/domaindrivenarchitecture/activity_pub_poc/core.cljc

@@ -24,10 +24,12 @@
          {k (first (normalize-value v))}
          :else {k (normalize-value v)})))
 
-(defn serialize
+(defn-spec serialize string?
-  [as-map]
+  [spec s/spec?
-  (json/write-str
+   as-map map?]
-   (merge
+  (let [speced-map (assert (s/valid? spec as-map))]
-    {(keyword "@context") "https://www.w3.org/ns/activitystreams"}
+    (json/write-str
-    (walk/walk normalize-functional-property identity as-map))
+     (merge
-   :escape-slash false))
+      {(keyword "@context") "https://www.w3.org/ns/activitystreams"}
+      (walk/walk normalize-functional-property identity speced-map))
+     :escape-slash false)))

src/test/cljc/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2_test.cljc

@@ -6,6 +6,7 @@
 
 (deftest id-test
   (is (s/valid? ::sut/id "https://social.bla/alyssa/status/RANDOMHASH"))
+  (is (s/valid? ::sut/id ["https://social.bla/alyssa/status/RANDOMHASH"]))
   (is (not (s/valid? ::sut/id nil)))
   (is (not (s/valid? ::sut/id 2)))
   (is (not (s/valid? ::sut/id "https://no-uri:abc")))

src/test/cljc/org/domaindrivenarchitecture/activity_pub_poc/core_test.cljc

@@ -17,6 +17,7 @@
                "\"name\":\"Sally\"},"
                "\"object\":\"http://example.org/notes/1\"}")
           (sut/serialize
+           ::as/Like
            {::as/id ["http://example.org/likes/1"]
             ::as/summary "Sally liked a note",
             ::as/type "Like",

src/test/cljc/org/domaindrivenarchitecture/activity_pub_poc/xsd_test.cljc

@@ -0,0 +1,6 @@
+(ns org.domaindrivenarchitecture.activity-pub-poc.xsd-test
+  (:require
+   [clojure.test :refer [deftest is are testing run-tests]]
+   [clojure.spec.test.alpha :as st]
+   [clojure.spec.alpha :as s]
+   [org.domaindrivenarchitecture.activity-pub-poc.xsd :as sut]))