Compare commits

..

No commits in common. "0fadba5e53435b994dd8f6a65a69e4102b54f831" and "56a4642800510dadd50e5d55087606719e63bf40" have entirely different histories.

5 changed files with 11 additions and 20 deletions

View file

@ -0,0 +1,7 @@
(ns org.domaindrivenarchitecture.activity-pub-poc.xsd
(:require [clojure.spec.alpha :as s]))
; http://www.datypic.com/sc/xsd/t-xsd_anyURI.html
; TODO: Find out correct definition!
(defn anyUri? [input]
false)

View file

@ -65,9 +65,8 @@
;Answer jem: I do not want to enhance owl/Class inline from here. ;Answer jem: I do not want to enhance owl/Class inline from here.
(s/def (s/def
::Class ::Class
(s/and ::owl/Class (s/merge ::owl/Class
)) (s/keys :opt-un [::id ::object])))
;(s/keys :opt-un [::id ::object])))
;http://www.w3.org/ns/activitystreams#Like ;http://www.w3.org/ns/activitystreams#Like

View file

@ -3,7 +3,6 @@
is realized in deep implemented." is realized in deep implemented."
(:require (:require
[clojure.spec.alpha :as s] [clojure.spec.alpha :as s]
[org.domaindrivenarchitecture.activity-pub-poc.predicates :as p]
[orchestra.core :refer [defn-spec]])) [orchestra.core :refer [defn-spec]]))
; Properties:https://www.w3.org/TR/owl-ref/#Property ; Properties:https://www.w3.org/TR/owl-ref/#Property
@ -12,12 +11,7 @@
;http://www.w3.org/2002/07/owl#Class ;http://www.w3.org/2002/07/owl#Class
;https://www.w3.org/TR/owl-ref/#Class-def ;https://www.w3.org/TR/owl-ref/#Class-def
(defn-spec owl-class? boolean? (s/def ::Class any?)
[elem any?]
(or (p/uri-string? elem)
(map? elem)
(vector? elem)))
(s/def ::Class owl-class?)
;http://www.w3.org/2002/07/owl#DatatypeProperty ;http://www.w3.org/2002/07/owl#DatatypeProperty
(s/def ::DatatypeProperty any?) (s/def ::DatatypeProperty any?)

View file

@ -477,8 +477,6 @@ as:id a owl:DatatypeProperty ,
owl:DeprecatedProperty ; owl:DeprecatedProperty ;
rdfs:label "id"@en ; rdfs:label "id"@en ;
rdfs:range xsd:anyURI ; rdfs:range xsd:anyURI ;
rdfs:domain as:Link,
as:Object;
rdfs:domain [ rdfs:domain [
a owl:Class ; a owl:Class ;
owl:unionOf (as:Link as:Object) owl:unionOf (as:Link as:Object)

View file

@ -12,10 +12,3 @@
(is (not (sut/functional? []))) (is (not (sut/functional? [])))
(is (not (sut/functional? nil))) (is (not (sut/functional? nil)))
(is (not (sut/functional? [1 2])))) (is (not (sut/functional? [1 2]))))
(deftest owl-class-predicate
(is (sut/owl-class? "http://some.uri"))
(is (sut/owl-class? {:as "class-definition"}))
(is (sut/owl-class? []))
(is (not (sut/owl-class? "str")))
(is (not (sut/owl-class? nil))))