meissa/activity-pub-poc
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Abandon parser

Browse source
This commit is contained in:
erik 2023-06-22 15:45:51 +02:00
parent 4bf90ae278
commit 1d6c71f56a
1 changed files with 36 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

72
src/test/clj/org/domaindrivenarchitecture/activity_pub_poc/parser_test.clj
View file

@ -1,38 +1,38 @@
(ns org.domaindrivenarchitecture.activity-pub-poc.parser-test
(:require [clojure.test :refer :all]
[org.domaindrivenarchitecture.activity-pub-poc.parser :as sut]))
;(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 : <http://www.w3.org/ns/activitystreams#> "
"@prefix as: <http://www.w3.org/ns/activitystreams#> "
"@prefix owl: <http://www.w3.org/2002/07/owl#> "
"@prefix rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#> "
"@prefix xml: <http://www.w3.org/XML/1998/namespace> "
"@prefix xsd: <http://www.w3.org/2001/XMLSchema#> "
"@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> "
"@base <http://www.w3.org/ns/activitystreams> "
"<http://www.w3.org/ns/activitystreams#> a owl:Ontology ;\n rdfs:comment \"Extended Activity Streams 2.0 Vocabulary\"@en ;\n rdfs:label \"Activity Streams 2.0\"@en ;\n owl:imports <http://www.w3.org/ns/prov#> "
"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
;(def processed (slurp "src/test/resources/deleted_comments_minimal.ttl"))
;(def expected-definitions ["@prefix : <http://www.w3.org/ns/activitystreams#> "
; "@prefix as: <http://www.w3.org/ns/activitystreams#> "
; "@prefix owl: <http://www.w3.org/2002/07/owl#> "
; "@prefix rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#> "
; "@prefix xml: <http://www.w3.org/XML/1998/namespace> "
; "@prefix xsd: <http://www.w3.org/2001/XMLSchema#> "
; "@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> "
; "@base <http://www.w3.org/ns/activitystreams> "
; "<http://www.w3.org/ns/activitystreams#> a owl:Ontology ;\n rdfs:comment \"Extended Activity Streams 2.0 Vocabulary\"@en ;\n rdfs:label \"Activity Streams 2.0\"@en ;\n owl:imports <http://www.w3.org/ns/prov#> "
; "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