add Like-test
This commit is contained in:
parent
72a51b3f2c
commit
c5376319c5
2 changed files with 9 additions and 1 deletions
|
@ -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
|
||||||
|
|
|
@ -34,3 +34,12 @@
|
||||||
[{: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 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