diff options
| author | pukkamustard <pukkamustard@posteo.net> | 2021-06-28 13:29:15 +0200 |
|---|---|---|
| committer | pukkamustard <pukkamustard@posteo.net> | 2021-06-28 13:29:15 +0200 |
| commit | b7732607fbaef6fca279200f01ec6df1015200e4 (patch) | |
| tree | 5b4f94f3b74a44ea065b8151dfed551d75900045 /test | |
| parent | a82f31e6c66ed56d53aad07c4d1d587d1280bf39 (diff) | |
Rdf.Graph: change argument order for mutating functions
Diffstat (limited to 'test')
| -rw-r--r-- | test/core/main.ml | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/test/core/main.ml b/test/core/main.ml index 5bf6987..0bf439c 100644 --- a/test/core/main.ml +++ b/test/core/main.ml @@ -25,42 +25,42 @@ module GraphTest = struct check bool "graph with one element added is not equal to empty graph" false - Rdf.Graph.(equal empty @@ - add empty Rdf.Triple.( - make - (Subject.of_iri @@ ex "foo") - (Predicate.of_iri @@ ex "prop") - (Object.of_iri @@ ex "bar"))); + Rdf.Graph.(equal empty + (empty |> add Rdf.Triple.(make + (Subject.of_iri @@ ex "foo") + (Predicate.of_iri @@ ex "prop") + (Object.of_iri @@ ex "bar")))); + check bool "graph with one element is equal" true Rdf.Graph.(equal - (add empty - Rdf.Triple.(make - (Subject.of_iri @@ ex "foo") - (Predicate.of_iri @@ ex "prop") - (Object.of_iri @@ ex "bar"))) - (add empty - Rdf.Triple.(make - (Subject.of_iri @@ ex "foo") - (Predicate.of_iri @@ ex "prop") - (Object.of_iri @@ ex "bar")))); + (empty + |> add Rdf.Triple.(make + (Subject.of_iri @@ ex "foo") + (Predicate.of_iri @@ ex "prop") + (Object.of_iri @@ ex "bar"))) + (empty + |> add Rdf.Triple.(make + (Subject.of_iri @@ ex "foo") + (Predicate.of_iri @@ ex "prop") + (Object.of_iri @@ ex "bar")))); check bool "graph with two different elements is not equal" false Rdf.Graph.(equal - (add empty - Rdf.Triple.(make - (Subject.of_iri @@ ex "foo") - (Predicate.of_iri @@ ex "prop") - (Object.of_iri @@ ex "bar"))) - (add empty - Rdf.Triple.(make - (Subject.of_iri @@ ex2 "foo") - (Predicate.of_iri @@ ex "prop") - (Object.of_iri @@ ex "bar")))); + (empty + |> add Rdf.Triple.(make + (Subject.of_iri @@ ex "foo") + (Predicate.of_iri @@ ex "prop") + (Object.of_iri @@ ex "bar"))) + (empty + |> add Rdf.Triple.(make + (Subject.of_iri @@ ex2 "foo") + (Predicate.of_iri @@ ex "prop") + (Object.of_iri @@ ex "bar")))); ) |