big squish

test/util.ml

@@ -0,0 +1,46 @@
+let thread_w_reply_to_simple v =
+  let open Types in
+  let Thread_w_reply.
+        { op; subject; lat; lng; bump_status; reply_count; reply_l = _ } =
+    v
+  in
+  let thread = { op; subject; lat; lng; bump_status; reply_count } in
+  thread
+
+(* -- image data -- *)
+let imgs =
+  let mk_img =
+    let load path =
+      match Assets.read path with
+      | None -> Fmt.failwith "test image `%s` not found" path
+      | Some o -> o
+    in
+    fun kind ->
+      let data = load (Fmt.str "/fff.%s" kind) in
+      let mime =
+        Fmt.str "image/%s" (if kind = "exif.png" then "png" else kind)
+      in
+      (mime, Fmt.str "fff.%s" kind, Fmt.str "a 1px %s test image" kind, data)
+  in
+  Array.map mk_img [| "png"; "jpeg"; "gif"; "exif.png" |]
+
+(* -- alcotest util -- *)
+
+let err = Alcotest.testable Err.pp ( = )
+
+let result ok_testable = Alcotest.result ok_testable err
+
+let unit_result = result Alcotest.unit
+
+let error msg = Error (Err.Unprocessable msg)
+
+let assert_error res =
+  match res with Ok _ -> error "assert_error failure" | Error _ -> Ok ()
+
+let assert_true b =
+  match b with true -> Ok () | false -> error "assert_true failure"
+
+let option_get opt =
+  match opt with
+  | Some v -> Ok v
+  | None -> error "option_get failure, option is none"