Compare commits
2 commits
72a51b3f2c
...
4ee310596a
Author | SHA1 | Date | |
---|---|---|---|
4ee310596a | |||
c5376319c5 |
2 changed files with 36 additions and 2 deletions
|
@ -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))
|
||||||
|
|
|
@ -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"})))
|
||||||
|
|
Loading…
Reference in a new issue