This commit is contained in:
Michael Jerger 2023-08-01 09:52:29 +02:00
parent 9297f8092f
commit ec20d3d575
2 changed files with 9 additions and 1 deletions

View file

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

View file

@ -48,6 +48,8 @@
(deftest bcc-test (deftest bcc-test
(is (s/valid? ::sut/bcc ["http://joe.example.org"]))) (is (s/valid? ::sut/bcc ["http://joe.example.org"])))
(deftest bto-test
(is (s/valid? ::sut/bto ["http://joe.example.org"])))
(deftest Activity-test (deftest Activity-test
(is (s/valid? ::sut/Activity (is (s/valid? ::sut/Activity