You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
1012 B
Clojure
29 lines
1012 B
Clojure
(ns org.domaindrivenarchitecture.activity-pub-poc.activitystreams2-legacy-test
|
|
(:require
|
|
[clojure.test :refer [deftest is are testing run-tests]]
|
|
[clojure.spec.test.alpha :as st]
|
|
[clojure.spec.alpha :as s]
|
|
[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
|
|
; (is (s/valid?
|
|
; ::sut/Note
|
|
; {:id "https://social.bla/alyssa/status/RANDOMHASH"
|
|
; :type "Note"
|
|
; :content "text"})))
|