Compare commits

..

2 commits

Author SHA1 Message Date
4ee310596a add actor definition 2023-07-28 17:57:30 +02:00
c5376319c5 add Like-test 2023-07-28 17:45:54 +02:00
2 changed files with 36 additions and 2 deletions

View file

@ -29,7 +29,7 @@
(s/and (s/and
::owl/Class ::owl/Class
::Object ::Object
(sh/map-spec (s/keys :opt-un [::result ::object])))) (sh/map-spec (s/keys :opt-un [::result ::object ::actor]))))
;http://www.w3.org/ns/activitystreams#Relationship ;http://www.w3.org/ns/activitystreams#Relationship
;We only have this class, since the property "object" is in the domain "Activity" and "Relationship" ;We only have this class, since the property "object" is in the domain "Activity" and "Relationship"
@ -67,7 +67,6 @@
any?;::xsd/anyURI any?;::xsd/anyURI
) )
;http://www.w3.org/ns/activitystreams#result ;http://www.w3.org/ns/activitystreams#result
(s/def ::result (s/def ::result
(s/and (s/and
@ -82,3 +81,11 @@
::owl/Class ::owl/Class
::Object ::Object
::Link)) ::Link))
;http://www.w3.org/ns/activitystreams#actor
(s/def ::actor
(s/and
::owl/ObjectProperty
::owl/Class
::Object
::Link))

View file

@ -34,3 +34,30 @@
[{:type "Image", [{:type "Image",
:content "This is what he looks like.", :content "This is what he looks like.",
:url "http://example.org/cat.jpeg"}]))) :url "http://example.org/cat.jpeg"}])))
(deftest actor-test
(is (s/valid? ::sut/actor "http://sally.example.org"))
(is (s/valid? ::sut/actor {:type "Person",
:id "http://sally.example.org",
:summary "Sally"}))
(is (s/valid? ::sut/actor ["http://joe.example.org",
{:type "Person",
:id "http://sally.example.org",
:name "Sally"}])))
(deftest Activity-test
(is (s/valid? ::sut/Activity
{:type "Activity",
:summary "Sally did something to a note",
:actor {:type "Person",
:name "Sally"},
:object {:type "Note",
:name "A Note"}})))
(deftest Like-test
(is (s/valid? ::sut/Like
{:summary "Sally liked a note",
:type "Like",
:actor {:type "Person",
:name "Sally"},
:object "http://example.org/notes/1"})))