From 367ea15a024981da0c8983c5193c26e96f167016 Mon Sep 17 00:00:00 2001
From: arie <arie@alleycat.cc>
Date: Wed, 16 Jun 2021 10:09:43 +0200
Subject: Rdf-turtle debugging, WIP. It's all very messy now, but that should
 improve soon.

---
 test/turtle/main.ml | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

(limited to 'test')

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 () ->
-- 
cgit v1.2.3