ppx_test for Async

ppx_test_async.ml

module Test = struct
  include Ppx_test.Test

  let eval = Async_unix.Thread_safe.block_on_async_exn

  let test_unit loc name deferred =
    test_unit loc name (fun () -> eval deferred)

  let test loc name deferred =
    test loc name (fun () -> eval deferred)
end

test.ml

open Core.Std
open Async.Std

module PTest = Ppx_test_async.Test

let%TEST test = return true

let () = PTest.collect ()