rename
parent
68e5703821
commit
5e71840662
@ -1,9 +1,9 @@
|
||||
(ns org.domaindrivenarchitecture.activity-pub-poc.activitystreams2
|
||||
(ns org.domaindrivenarchitecture.fed-poc.activitystreams2
|
||||
(:require [clojure.spec.alpha :as s]
|
||||
[orchestra.core :refer [defn-spec]]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.spec-helper :as sh]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.owl :as owl]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.xsd :as xsd]))
|
||||
[org.domaindrivenarchitecture.fed-poc.spec-helper :as sh]
|
||||
[org.domaindrivenarchitecture.fed-poc.owl :as owl]
|
||||
[org.domaindrivenarchitecture.fed-poc.xsd :as xsd]))
|
||||
|
||||
|
||||
|
@ -1,8 +1,8 @@
|
||||
(ns org.domaindrivenarchitecture.activity-pub-poc.core
|
||||
(ns org.domaindrivenarchitecture.fed-poc.core
|
||||
(:require [clojure.spec.alpha :as s]
|
||||
[clojure.walk :as walk]
|
||||
[orchestra.core :refer [defn-spec]]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.spec-helper :as sh]
|
||||
[org.domaindrivenarchitecture.fed-poc.spec-helper :as sh]
|
||||
[clojure.data.json :as json]))
|
||||
|
||||
(declare normalize-functional-property)
|
@ -1,9 +1,9 @@
|
||||
(ns org.domaindrivenarchitecture.activity-pub-poc.owl
|
||||
(ns org.domaindrivenarchitecture.fed-poc.owl
|
||||
"A swallow spec translation implementation of owl. Inheritance of FunctionalProperty
|
||||
is realized in deep implemented."
|
||||
(:require
|
||||
[clojure.spec.alpha :as s]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.predicates :as p]
|
||||
[org.domaindrivenarchitecture.fed-poc.predicates :as p]
|
||||
[orchestra.core :refer [defn-spec]]))
|
||||
|
||||
; Properties:https://www.w3.org/TR/owl-ref/#Property
|
@ -1,4 +1,4 @@
|
||||
(ns org.domaindrivenarchitecture.activity-pub-poc.predicates
|
||||
(ns org.domaindrivenarchitecture.fed-poc.predicates
|
||||
(:require [clojure.string :as str]
|
||||
[lambdaisland.uri :as uri]))
|
||||
|
@ -1,4 +1,4 @@
|
||||
(ns org.domaindrivenarchitecture.activity-pub-poc.spec-helper
|
||||
(ns org.domaindrivenarchitecture.fed-poc.spec-helper
|
||||
"A swallow spec translation implementation of owl. Inheritance of FunctionalProperty
|
||||
is realized in deep implemented."
|
||||
(:require
|
@ -1,7 +1,7 @@
|
||||
(ns org.domaindrivenarchitecture.activity-pub-poc.xsd
|
||||
(ns org.domaindrivenarchitecture.fed-poc.xsd
|
||||
"A spec translation implementation of xsd. Predicates are implemented fully functional."
|
||||
(:require [clojure.spec.alpha :as s]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.predicates :as p]))
|
||||
[org.domaindrivenarchitecture.fed-poc.predicates :as p]))
|
||||
|
||||
;https://www.w3.org/TR/xmlschema11-2/#anyURI
|
||||
(s/def ::anyURI p/uri-string?)
|
@ -1,12 +1,10 @@
|
||||
(ns org.domaindrivenarchitecture.activity-pub-poc.core-test
|
||||
(ns org.domaindrivenarchitecture.fed-poc.core-test
|
||||
(:require
|
||||
[clojure.test :refer [deftest is are testing run-tests]]
|
||||
[clojure.spec.alpha :as s]
|
||||
[clojure.string :as str]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.activitystreams2 :as as]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.core :as sut]))
|
||||
|
||||
(def tmp )
|
||||
[org.domaindrivenarchitecture.fed-poc.activitystreams2 :as as]
|
||||
[org.domaindrivenarchitecture.fed-poc.core :as sut]))
|
||||
|
||||
(deftest should-normalize
|
||||
(is (= {::as/id "http://example.org/likes/1"
|
@ -1,9 +1,9 @@
|
||||
(ns org.domaindrivenarchitecture.activity-pub-poc.owl-test
|
||||
(ns org.domaindrivenarchitecture.fed-poc.owl-test
|
||||
(:require
|
||||
[clojure.test :refer [deftest is are testing run-tests]]
|
||||
[clojure.spec.test.alpha :as st]
|
||||
[clojure.spec.alpha :as s]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.owl :as sut]))
|
||||
[org.domaindrivenarchitecture.fed-poc.owl :as sut]))
|
||||
|
||||
(deftest functional-predicate
|
||||
(is (sut/functional? "str"))
|
@ -1,10 +1,10 @@
|
||||
(ns org.domaindrivenarchitecture.activity-pub-poc.spec-helper-test
|
||||
(ns org.domaindrivenarchitecture.fed-poc.spec-helper-test
|
||||
(:require
|
||||
[clojure.test :refer [deftest is are testing run-tests]]
|
||||
[clojure.spec.test.alpha :as st]
|
||||
[clojure.spec.alpha :as s]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.activitystreams2 :as as2]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.spec-helper :as sut]))
|
||||
[org.domaindrivenarchitecture.fed-poc.activitystreams2 :as as2]
|
||||
[org.domaindrivenarchitecture.fed-poc.spec-helper :as sut]))
|
||||
|
||||
(deftest shoult-test-spec-for-having-functional-property
|
||||
(is (sut/is-functional-property? ::as2/id))
|
@ -1,6 +1,6 @@
|
||||
(ns org.domaindrivenarchitecture.activity-pub-poc.xsd-test
|
||||
(ns org.domaindrivenarchitecture.fed-poc.xsd-test
|
||||
(:require
|
||||
[clojure.test :refer [deftest is are testing run-tests]]
|
||||
[clojure.spec.test.alpha :as st]
|
||||
[clojure.spec.alpha :as s]
|
||||
[org.domaindrivenarchitecture.activity-pub-poc.xsd :as sut]))
|
||||
[org.domaindrivenarchitecture.fed-poc.xsd :as sut]))
|
Loading…
Reference in New Issue