diff options
Diffstat (limited to 'test/turtle/main.ml')
| -rw-r--r-- | test/turtle/main.ml | 27 |
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 () -> |