This commit is contained in:
Michael Jerger 2023-07-31 09:34:01 +02:00
parent 4ee310596a
commit b459694d86
2 changed files with 11 additions and 1 deletions

View file

@ -14,7 +14,7 @@
(s/def ::Object
(s/and
::owl/Class
(sh/map-spec (s/keys :opt-un [::id ::type ::attachment]))))
(sh/map-spec (s/keys :opt-un [::id ::type ::attachment ::bcc]))))
;http://www.w3.org/ns/activitystreams#Link
;TODO: definition in progress
@ -61,6 +61,12 @@
::owl/DeprecatedProperty
::xsd/anyURI))
;http://www.w3.org/ns/activitystreams#bcc
(s/def ::bcc
(s/and ::owl/ObjectProperty
::Object
::Link))
;https://www.w3.org/TR/activitystreams-vocabulary/#dfn-type
;TODO: this can not be found in the ttl / namespace. Where is this exactly defined?
(s/def ::type

View file

@ -45,6 +45,10 @@
:id "http://sally.example.org",
:name "Sally"}])))
(deftest bcc-test
(is (s/valid? ::sut/bcc ["http://joe.example.org"])))
(deftest Activity-test
(is (s/valid? ::sut/Activity
{:type "Activity",