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
|
||||
::owl/Class
|
||||
::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
|
||||
;We only have this class, since the property "object" is in the domain "Activity" and "Relationship"
|
||||
|
@ -67,7 +67,6 @@
|
|||
any?;::xsd/anyURI
|
||||
)
|
||||
|
||||
|
||||
;http://www.w3.org/ns/activitystreams#result
|
||||
(s/def ::result
|
||||
(s/and
|
||||
|
@ -82,3 +81,11 @@
|
|||
::owl/Class
|
||||
::Object
|
||||
::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",
|
||||
:content "This is what he looks like.",
|
||||
: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