src/main/cljc/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2.cljc

@@ -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"
@@ -81,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))

src/test/cljc/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2_test.cljc

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