on the way to recursion

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

@@ -17,4 +17,8 @@
   is-functional-property? boolean?
   "Checks whether spec is a FunctionalProperty."
   [spec s/spec?]
-  (some #(clojure.string/includes? % "FunctionalProperty") (s/describe spec)))
+  (if ( s/get-spec spec)
+    (some
+     #(clojure.string/includes? % "FunctionalProperty")
+     (s/describe spec))
+    false))

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

@@ -3,14 +3,16 @@
    [clojure.test :refer [deftest is are testing run-tests]]
    [clojure.spec.alpha :as s]
    [clojure.string :as str]
+   [org.domaindrivenarchitecture.activity-pub-poc.activitystreams2 :as as]
    [org.domaindrivenarchitecture.activity-pub-poc.core :as sut]))
 
-(deftest should-serailize
+(deftest should-serialize
   (is (=  (str "{\"@context\":\"https://www.w3.org/ns/activitystreams\","
                "\"id\":\"http://example.org/likes/1\","
                "\"summary\":\"Sally liked a note\","
                "\"type\":\"Like\","
                "\"actor\":{"
+               "\"id\":\"http://example.org/persons/1\","
                "\"type\":\"Person\","
                "\"name\":\"Sally\"},"
                "\"object\":\"http://example.org/notes/1\"}")
@@ -18,6 +20,7 @@
            {::as/id ["http://example.org/likes/1"]
             ::as/summary "Sally liked a note",
             ::as/type "Like",
-            ::as/actor {::as/type "Person",
+            ::as/actor {::as/id ["http://example.org/persons/1"]
+                        ::as/type "Person",
                         ::as/name "Sally"},
             ::as/object "http://example.org/notes/1"}))))

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

@@ -8,4 +8,5 @@
 
 (deftest shoult-test-spec-for-having-functional-property
   (is (sut/is-functional-property? ::as2/id))
-  (is (not (sut/is-functional-property? ::as2/Like))))
+  (is (not (sut/is-functional-property? ::as2/Like)))
+  (is (not (sut/is-functional-property? ::as2/NotExisting))))