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

@@ -11,4 +11,10 @@
   (s/and
    (s/or
     :no-map #(not (map? %))
-    :map spec)))
+    :map spec)))
+
+(defn-spec
+  is-functional-property? boolean?
+  "Checks whether spec is a FunctionalProperty."
+  [spec s/spec?]
+  (some #(clojure.string/includes? % "FunctionalProperty") (s/describe spec)))

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

@@ -5,10 +5,6 @@
    [clojure.spec.alpha :as s]
    [org.domaindrivenarchitecture.activity-pub-poc.activitystreams2 :as sut]))
 
-(deftest shoult-test-spec-for-having-functional-property
-  (is (sut/is-functional-property? ::sut/id))
-  (is (not (sut/is-functional-property? ::sut/Like))))
-
 (deftest id-test
   (is (s/valid? ::sut/id "https://social.bla/alyssa/status/RANDOMHASH"))
   (is (not (s/valid? ::sut/id nil)))

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

@@ -0,0 +1,11 @@
+(ns org.domaindrivenarchitecture.activity-pub-poc.spec-helper-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.activitystreams2 :as as2]
+   [org.domaindrivenarchitecture.activity-pub-poc.spec-helper :as sut]))
+
+(deftest shoult-test-spec-for-having-functional-property
+  (is (sut/is-functional-property? ::as2/id))
+  (is (not (sut/is-functional-property? ::as2/Like))))