remove unused as:Class
This commit is contained in:
parent
d572a8c05e
commit
077a50e733
3 changed files with 4 additions and 11 deletions
|
@ -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
|
||||||
|
|
|
@ -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"}))
|
||||||
|
|
|
@ -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 {})))
|
||||||
|
|
Loading…
Reference in a new issue