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

@@ -1,5 +0,0 @@
-(ns org.domaindrivenarchitecture.activity-pub-poc.core
-  (:require [clojure.spec.alpha :as s]
-            [orchestra.core :refer [defn-spec]]
-            [org.domaindrivenarchitecture.activity-pub-poc.spec-helper :as sh]
-            [org.domaindrivenarchitecture.activity-pub-poc.activitystreams2 :as as]))

src/test/clj/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2_legacy_test.clj

@@ -0,0 +1,28 @@
+(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"})))

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

@@ -1,6 +1,7 @@
 (ns org.domaindrivenarchitecture.activity-pub-poc.activitystreams2-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 :as sut]))
 

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

@@ -1,23 +0,0 @@
-(ns org.domaindrivenarchitecture.activity-pub-poc.core-test
-  (:require
-   [clojure.test :refer [deftest is are testing run-tests]]
-   [clojure.spec.alpha :as s]
-   [org.domaindrivenarchitecture.activity-pub-poc.core :as sut]))
-
-(deftest should-serailize
-  (is (= "{
- \"@context\": \"https://www.w3.org/ns/activitystreams\", 
- \"summary\": \"Sally liked a note\",
- \"type\": \"Like\",
- \"actor\": {
-  \"type\": \"Person\",
-  \"name\": \"Sally\"
- },
- \"object\": \"http://example.org/notes/1\"
-}"
-         (sut/serialize 
-          {:summary "Sally liked a note",
-           :type "Like",
-           :actor {:type "Person",
-                   :name "Sally"},
-           :object "http://example.org/notes/1"}))))