aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorpukkamustard <pukkamustard@posteo.net>2021-06-28 13:29:15 +0200
committerpukkamustard <pukkamustard@posteo.net>2021-06-28 13:29:15 +0200
commitb7732607fbaef6fca279200f01ec6df1015200e4 (patch)
tree5b4f94f3b74a44ea065b8151dfed551d75900045 /test
parenta82f31e6c66ed56d53aad07c4d1d587d1280bf39 (diff)
Rdf.Graph: change argument order for mutating functions
Diffstat (limited to 'test')
-rw-r--r--test/core/main.ml52
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"))));
)