remove unused as:Class

This commit is contained in:
Michael Jerger 2023-07-28 16:58:10 +02:00
parent d572a8c05e
commit 077a50e733
3 changed files with 4 additions and 11 deletions

View file

@ -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 ;http://www.w3.org/ns/activitystreams#object
(s/def ::Object (s/def ::Object
(s/and (s/and

View file

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

View file

@ -19,3 +19,7 @@
(is (sut/owl-class? [])) (is (sut/owl-class? []))
(is (not (sut/owl-class? "str"))) (is (not (sut/owl-class? "str")))
(is (not (sut/owl-class? nil)))) (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 {})))