Compare commits

..

2 commits

Author SHA1 Message Date
jem
9297f8092f Merge pull request 'add bcc' (#2) from object-or-refernce into main
Reviewed-on: #2
2023-08-01 07:45:34 +00:00
b459694d86 add bcc 2023-07-31 09:34:01 +02:00
2 changed files with 11 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])))) (sh/map-spec (s/keys :opt-un [::id ::type ::attachment ::bcc]))))
;http://www.w3.org/ns/activitystreams#Link ;http://www.w3.org/ns/activitystreams#Link
;TODO: definition in progress ;TODO: definition in progress
@ -61,6 +61,12 @@
::owl/DeprecatedProperty ::owl/DeprecatedProperty
::xsd/anyURI)) ::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 ;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

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