|
|
|
@ -35,6 +35,24 @@
|
|
|
|
|
: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
|
|
|
|
|