;(ns org.domaindrivenarchitecture.activity-pub-poc.parser-test ; (:require [clojure.test :refer :all] ; [org.domaindrivenarchitecture.activity-pub-poc.parser :as sut])) ;(def processed (slurp "src/test/resources/deleted_comments_minimal.ttl")) ;(def expected-definitions ["@prefix : " ; "@prefix as: " ; "@prefix owl: " ; "@prefix rdf: " ; "@prefix xml: " ; "@prefix xsd: " ; "@prefix rdfs: " ; "@base " ; " a owl:Ontology ;\n rdfs:comment \"Extended Activity Streams 2.0 Vocabulary\"@en ;\n rdfs:label \"Activity Streams 2.0\"@en ;\n owl:imports " ; "rdf:langString a rdfs:Datatype " ; "xsd:duration a rdfs:Datatype " ; "as:actor a owl:ObjectProperty ;\n rdfs:label \"actor\"@en ;\n rdfs:domain as:Activity ;\n rdfs:comment \"Subproperty of as:attributedTo that identifies the primary actor\"@en ;\n rdfs:subPropertyOf as:attributedTo ;\n rdfs:range [\n a owl:Class ;\n owl:unionOf (as:Object as:Link)\n ] " ; "as:attributedTo a owl:ObjectProperty ;\n rdfs:label \"attributedTo\"@en;\n rdfs:comment \"Identifies an entity to which an object is attributed\"@en;\n rdfs:range [\n a owl:Class ;\n owl:unionOf (as:Object as:Link)\n ] ;\n rdfs:domain [\n a owl:Class ;\n owl:unionOf (as:Object as:Link)\n ] ; "]) ; ;(deftest remove-comments-test ; (is ; (= processed ; (sut/delete-comments-and-newlines "src/test/resources/minimal.ttl")))) ; ;((deftest find-definitions-test ; (testing "Finding definitons" ; (is (= expected-definitions ; (sut/find-definitions processed)))))) ; ;;ToDo ;; spec für eine property: as:name ;; test für (defn get-spec-from-ttl ttl-file element-name [spezified predicates]) -> (str spec) ; ;; ToDo ;; spec generator ; ;; das gleiche für as:actor