aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorarie <arie@alleycat.cc>2021-06-16 10:09:43 +0200
committerarie <arie@alleycat.cc>2021-06-28 21:03:35 +0200
commit367ea15a024981da0c8983c5193c26e96f167016 (patch)
tree4e2cac1913a905031f76e2bf07d645382058f47c /test
parent4e6349d102a99011ff3ee45f168247ae6d16bc5d (diff)
Rdf-turtle
debugging, WIP. It's all very messy now, but that should improve soon.
Diffstat (limited to 'test')
-rw-r--r--test/turtle/main.ml27
1 files changed, 26 insertions, 1 deletions
diff --git a/test/turtle/main.ml b/test/turtle/main.ml
index 6cd5c32..db4193d 100644
--- a/test/turtle/main.ml
+++ b/test/turtle/main.ml
@@ -240,6 +240,11 @@ let predobjs_test_case =
~language:"ru");
]
] ;
+(* "<http://www.perceive.net/schemas/relationship/enemyOf> \"LITERAL\" ", *)
+(* "<http://www.perceive.net/schemas/relationship/enemyOf> .", *)
+(* [ Predicate.of_iri @@ Iri.of_prefixed_name @@ Prefixed_name.of_strings "" "p", *)
+(* [ Obj_iri (Iri.of_prefixed_name @@ Prefixed_name.of_strings "" "WWWWWWWWWWWWWWWWWWWwwW"); ] ; ] *)
+(* ; *)
] in
test_case "predobjs" `Quick
(fun () ->
@@ -352,13 +357,33 @@ let statement_test_case =
"foaf"
(Iriref.of_string "http://xmlns.com/foaf/0.1/"))
;
- "<http://example.org/#spiderman> <http://www.perceive.net/schemas/relationship/enemyOf> <http://example.org/#green-goblin> .",
+ "<http://example.org/#spiderman>
+ <http://www.perceive.net/schemas/relationship/enemyOf> <http://example.org/#green-goblin> .",
+ Statement.of_triples (
+ Triples.of_subject_and_predobjs
+ (Sub_iri (Iri.of_iriref (Iriref.of_string @@ "http://example.org/#spiderman")))
+ ([ Predicate.of_iri @@ Iri.of_iriref "http://www.perceive.net/schemas/relationship/enemyOf",
+ [ Obj_iri (Iri.of_iriref "http://example.org/#green-goblin"); ] ; ]))
+ ;
+(* "<http://example.org/#spiderman> <http://www.perceive.net/schemas/relationship/enemyOf> \"literal\" .", *)
+ "<http://example.org/#spiderman>
+ <http://www.perceive.net/schemas/relationship/enemyOf> <http://example.org/#green-goblin> .",
Statement.of_triples (
Triples.of_subject_and_predobjs
(Sub_iri (Iri.of_iriref (Iriref.of_string @@ "http://example.org/#spiderman")))
([ Predicate.of_iri @@ Iri.of_iriref "http://www.perceive.net/schemas/relationship/enemyOf",
[ Obj_iri (Iri.of_iriref "http://example.org/#green-goblin"); ] ; ]))
;
+ "<http://example.org/#spiderman> <http://www.perceive.net/schemas/relationship/enemyOf> \"literal\" .",
+ Statement.of_triples (
+ Triples.of_subject_and_predobjs
+ (Sub_iri (Iri.of_iriref (Iriref.of_string @@ "http://example.org/#spiderman")))
+ ([ Predicate.of_iri @@ Iri.of_iriref "http://www.perceive.net/schemas/relationship/enemyOf",
+ [ Obj_literal ( Literal.make
+ "literal"
+ (Iri.of_prefixed_name @@ Prefixed_name.of_strings "xsd" "string")
+ )]]))
+ ;
] in
test_case "statement" `Quick
(fun () ->