add Like-test

pull/1/head
Michael Jerger 10 months ago
parent 72a51b3f2c
commit c5376319c5

@ -67,7 +67,6 @@
any?;::xsd/anyURI
)
;http://www.w3.org/ns/activitystreams#result
(s/def ::result
(s/and

@ -34,3 +34,12 @@
[{:type "Image",
:content "This is what he looks like.",
: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…
Cancel
Save