Add Link as Object Type to spec; add object-test

and link-test to activitystreams2_test

.gitignore

@@ -14,4 +14,5 @@ pom.xml.asc
 .clj-kondo/.cache/
 .clj-kondo/metosin/
 .lsp/.cache/
-.calva
+.calva
+.idea

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

@@ -19,6 +19,7 @@
                           "Relationship"
                           "Tombstone"
                           "Video"
+                          "Link"
                          ; Link Types
                           "Mention"})
 
@@ -30,7 +31,8 @@
                  :uri core/uri-string?
                  :map (s/and (s/keys
                               :req-un [::id ::type]
-                              :opt-un [::attributedTo ::content ::und-mehr]))))
+                              :opt-un [::attributedTo ::und-mehr]))))
+
 (s/def ::id core/uri-string?)
 
 ; TODO: type can have multiple values!! Affects also the fct match-type and all specs that uses it!

src/test/clj/org/domaindrivenarchitecture/activitystreams2_test.clj

@@ -8,10 +8,17 @@
 (deftest id-test
   (is (s/valid? ::sut/id "https://social.bla/alyssa/status/RANDOMHASH")))
 
+(deftest type-test
+  (is (s/valid? ::sut/type "Note"))
+  (is (s/valid? ::sut/type "Link"))
+  (is (not(s/valid? ::sut/type "non existing"))))
 
+(deftest object-test
+              (is (s/valid? ::sut/Object "https://social.bla/alyssa/status/RANDOMHASH")
+              (is (s/valid? ::sut/Object {:id "https://social.bla/alyssa/status/RANDOMHASH" :type "Page"}))))
 
-
-
+(deftest link-test
+              (is (s/valid? ::sut/Link {:type "Link"})))
 
 ;(deftest Note-test
 ;  (is (s/valid?