meissa/activity-pub-poc
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

refactore out more spec-herlper fcts

Browse source
This commit is contained in:
Michael Jerger 2023-07-28 17:06:24 +02:00
parent 21c5a0244e
commit 8aea2c5326
3 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/main/cljc/org/domaindrivenarchitecture/activity_pub_poc/spec_helper.cljc
View file

@ -12,3 +12,9 @@
(s/or
:no-map #(not (map? %))
: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)))

4
src/test/cljc/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2_test.clj → src/test/cljc/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2_test.cljc
View file

@ -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)))

11
src/test/cljc/org/domaindrivenarchitecture/activity_pub_poc/spec_helper_test.cljc Normal file
View file

@ -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))))