Add unit tests for get-activity-lib

dune-project

@@ -16,6 +16,7 @@
  (name get-activity-lib)
  (synopsis "Collect activity as markdown")
  (depends
+  (alcotest :with-test)
   cohttp
   cohttp-lwt
   cohttp-lwt-unix

get-activity-lib.opam

@@ -7,6 +7,7 @@ homepage: "https://github.com/tarides/get-activity"
 bug-reports: "https://github.com/tarides/get-activity/issues"
 depends: [
   "dune" {>= "2.8"}
+  "alcotest" {with-test}
   "cohttp"
   "cohttp-lwt"
   "cohttp-lwt-unix"

test/lib/alcotest_ext.ml

@@ -0,0 +1,47 @@
+open Alcotest
+
+module Msg = struct
+  type 'a t = [ `Msg of 'a ]
+
+  let pp f fs (`Msg s : 'a t) = Format.fprintf fs "%a" f s
+  let eq f (`Msg s1 : 'a t) (`Msg s2 : 'a t) = f s1 s2
+
+  let testable t =
+    let pp = pp (Alcotest.pp t) in
+    let eq = eq (Alcotest.equal t) in
+    testable pp eq
+end
+
+let msg = Msg.testable
+let string_msg = msg string
+let or_msg x = result x string_msg
+
+module Lwt = struct
+  type 'a t = 'a Lwt.t
+
+  let pp f fs (x : 'a t) =
+    let x = Lwt_main.run x in
+    Format.fprintf fs "%a" f x
+
+  let eq f (x : 'a t) (y : 'a t) =
+    let x = Lwt_main.run x in
+    let y = Lwt_main.run y in
+    f x y
+
+  let testable (t : 'a testable) : 'a t testable =
+    let pp = pp (Alcotest.pp t) in
+    let eq = eq (Alcotest.equal t) in
+    testable pp eq
+end
+
+let lwt = Lwt.testable
+
+module Yojson = struct
+  type t = Yojson.Safe.t
+
+  let pp = Yojson.Safe.pp
+  let eq = Yojson.Safe.equal
+  let testable : t testable = testable pp eq
+end
+
+let yojson = Yojson.testable

test/lib/alcotest_ext.mli

@@ -0,0 +1,8 @@
+val msg : 'a Alcotest.testable -> [ `Msg of 'a ] Alcotest.testable
+val string_msg : [ `Msg of string ] Alcotest.testable
+
+val or_msg :
+  'a Alcotest.testable -> ('a, [ `Msg of string ]) result Alcotest.testable
+
+val lwt : 'a Alcotest.testable -> 'a Lwt.t Alcotest.testable
+val yojson : Yojson.Safe.t Alcotest.testable

test/lib/dune

@@ -0,0 +1,4 @@
+(test
+ (name main)
+ (package get-activity-lib)
+ (libraries get-activity-lib alcotest))

test/lib/main.ml

@@ -0,0 +1,8 @@
+let () =
+  Alcotest.run "get-activity-lib"
+    [
+      Test_token.suite;
+      Test_period.suite;
+      Test_graphql.suite;
+      Test_contributions.suite;
+    ]