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

on the way to recursion

Browse source
This commit is contained in:
Michael Jerger 2023-08-02 10:51:04 +02:00
parent d838ab5967
commit e44bdc2761
3 changed files with 12 additions and 4 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

@ -17,4 +17,8 @@
is-functional-property? boolean? is-functional-property? boolean?
"Checks whether spec is a FunctionalProperty." "Checks whether spec is a FunctionalProperty."
[spec s/spec?] [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))

7
src/test/cljc/org/domaindrivenarchitecture/activity_pub_poc/core_test.cljc
View file

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

3
src/test/cljc/org/domaindrivenarchitecture/activity_pub_poc/spec_helper_test.cljc
View file

@ -8,4 +8,5 @@
(deftest shoult-test-spec-for-having-functional-property (deftest shoult-test-spec-for-having-functional-property
(is (sut/is-functional-property? ::as2/id)) (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))))