package async

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file deferred_or_error_expect_test_config.ml

1
2
3
4
5
6
7
8
9
10
open! Core_kernel
open! Async_kernel
open! Async_unix
module IO = Async_kernel.Deferred.Or_error
open IO

let flush () = return ()
let run f = Thread_safe.block_on_async_exn f |> Or_error.ok_exn
let flushed () = true
let upon_unreleasable_issue = Expect_test_config.upon_unreleasable_issue