unikernel/duniverse/pgx/pgx_lwt_unix/test/dune

@@ -0,0 +1,4 @@
+(test
+ (name test_pgx_lwt)
+ (package pgx_lwt_unix)
+ (libraries alcotest alcotest-lwt pgx_test pgx_lwt_unix))

unikernel/duniverse/pgx/pgx_lwt_unix/test/test_pgx_lwt.ml

@@ -0,0 +1,10 @@
+module Alcotest_io = struct
+  type 'a test_case = 'a Alcotest_lwt.test_case
+
+  let test_case name speed f = Alcotest_lwt.test_case name speed (fun _ -> f)
+  let run name tests = Alcotest_lwt.run name tests |> Lwt_main.run
+end
+
+include Pgx_test.Make_tests (Pgx_lwt_unix) (Alcotest_io)
+
+let () = run_tests ~library_name:"pgx_lwt_unix"