share the condition check and employee fixture across tests

1 files changed, 13 insertions, 0 deletions

diff --git a/test/Helpers.ml b/test/Helpers.ml
index ecd3985..5f4478f 100644
--- a/test/Helpers.ml
+++ b/test/Helpers.ml
@@ -15,6 +15,19 @@ let condition_as_failure = function
   | Ok r -> r
   | Error c -> Alcotest.fail (Concepts.Condition.to_string_hum c)
 
+let refuses message name result =
+  Alcotest.(check bool)
+    message true
+    ( match result with
+    | Error c -> BatString.starts_with (Concepts.Condition.to_string_hum c) name
+    | Ok _ -> false )
+
+let employee name age =
+  { Concepts.Tuple.type_= "employee";
+    attributes=
+      BatMap.String.of_list ["name", Concepts.Value.String name; "age", Concepts.Value.Integer age]
+  }
+
 let pp_value ppf v = Format.pp_print_string ppf (Concepts.Value.to_string v)
 let value = Alcotest.testable pp_value Concepts.Value.equal