aboutsummaryrefslogtreecommitdiff
path: root/test/turtle/main.ml
diff options
context:
space:
mode:
authorarie <arie@alleycat.cc>2021-06-23 10:34:31 +0200
committerarie <arie@alleycat.cc>2021-06-28 21:08:41 +0200
commitcb1aaf6416a155390b85eae5493793fa12f4c788 (patch)
treefbbb36b5cc6b463758ff6064a02639df1ebaaea5 /test/turtle/main.ml
parent184396b507e4bff859ffb5212caccfecf341d2ed (diff)
Cleaned up some code, changed a few names. Added a test function in
bin/main for turtle strings.
Diffstat (limited to 'test/turtle/main.ml')
-rw-r--r--test/turtle/main.ml20
1 files changed, 10 insertions, 10 deletions
diff --git a/test/turtle/main.ml b/test/turtle/main.ml
index 5b95da4..839a7f7 100644
--- a/test/turtle/main.ml
+++ b/test/turtle/main.ml
@@ -302,14 +302,14 @@ let subject_test_case =
let triples_test_case =
let cases = [
"<http://example.org/#spiderman> <http://www.perceive.net/schemas/relationship/enemyOf> <http://example.org/#green-goblin>",
- Triples.of_subject_and_predobjs
+ Triple.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"); ] ; ])
;
(* TODO write test with proper predobjs *)
"[ foaf:name \"Bob\" ]",
- Triples.of_bnodps (
+ Triple.of_bnodps (
BnodPs ([ Predicate.of_iri @@ Iri.of_prefixed_name @@ Prefixed_name.of_strings "foaf" "name",
[ Obj_literal ( Literal.make
("Bob")
@@ -359,8 +359,8 @@ let statement_test_case =
;
"<http://example.org/#spiderman>
<http://www.perceive.net/schemas/relationship/enemyOf> <http://example.org/#green-goblin> .",
- Statement.of_triples (
- Triples.of_subject_and_predobjs
+ Statement.of_triple (
+ Triple.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"); ] ; ]))
@@ -368,15 +368,15 @@ let statement_test_case =
(* "<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
+ Statement.of_triple (
+ Triple.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
+ Statement.of_triple (
+ Triple.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
@@ -406,8 +406,8 @@ let turtle_test_case =
;
"<http://example.org/#spiderman> <http://www.perceive.net/schemas/relationship/enemyOf> <http://example.org/#green-goblin> .",
Turtle.of_statement_lst (
- [Statement.of_triples (
- Triples.of_subject_and_predobjs
+ [Statement.of_triple (
+ Triple.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"); ] ; ]))])