add Like-test

This commit is contained in:
Michael Jerger 2023-07-28 17:45:54 +02:00
parent 72a51b3f2c
commit c5376319c5
2 changed files with 9 additions and 1 deletions

View file

@ -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

View file

@ -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"})))