Compare commits

..

3 commits

3 changed files with 17 additions and 1 deletions

3
.gitignore vendored
View file

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

View file

@ -20,6 +20,7 @@
"Relationship" "Relationship"
"Tombstone" "Tombstone"
"Video" "Video"
"Link"
; Link Types ; Link Types
"Mention"}) "Mention"})

View file

@ -5,6 +5,20 @@
[clojure.spec.alpha :as s] [clojure.spec.alpha :as s]
[org.domaindrivenarchitecture.activity-pub-poc.activitystreams2-legacy :as sut])) [org.domaindrivenarchitecture.activity-pub-poc.activitystreams2-legacy :as sut]))
;(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 ;(deftest Note-test
; (is (s/valid? ; (is (s/valid?