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

@@ -13,14 +13,6 @@
 
 ;=======================
 
-;TODO: There is no as:Class! Why do we need this?
-;Answer jem: I do not want to enhance owl/Class inline from here.
-(s/def
-  ::Class
-  (s/and ::owl/Class))
-
-;=======================
-
 ;http://www.w3.org/ns/activitystreams#object
 (s/def ::Object
   (s/and

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

@@ -25,9 +25,6 @@
                                :summary "A simple note",
                                :content "That is a tree."}])))
 
-(deftest class-test
-  (is (s/valid? ::sut/Class "https://social.bla/alyssa/status/RANDOMHASH")))
-
 (deftest result-test
   (is (s/valid? ::sut/result "https://social.bla/alyssa/result/RANDOMHASH"))
   (is (s/valid? ::sut/result {:type "http://www.types.example/flightstatus", :name "On Time"}))

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

@@ -19,3 +19,7 @@
   (is (sut/owl-class? []))
   (is (not (sut/owl-class? "str")))
   (is (not (sut/owl-class? nil))))
+
+(deftest class-test
+  (is (s/valid? ::sut/Class "https://social.bla/alyssa/status/RANDOMHASH"))
+  (is (s/valid? ::sut/Class {})))