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
|
||||
(s/def ::Object
|
||||
(s/and
|
||||
|
|
|
@ -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"}))
|
||||
|
|
|
@ -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 {})))
|
||||
|
|
Loading…
Reference in a new issue