Async Unit Tests

main.ml

open Core.Std
open Async.Std

let one () =
  return 1

let two () =
  after (sec 2.0) >>| fun () -> 2

main_test.ml

open Core.Std
open Async.Std
open Main
open Assertions

(* https://groups.google.com/forum/#!topic/ocaml-core/S862OC-o5hA *)
let join (d: 'a Deferred.t) : 'a =
  Async_unix.Thread_safe.block_on_async_exn (fun () -> d)

TEST_UNIT "test_one" =
  join (one ()) === 1

TEST_UNIT "test_two" =
  join (two ()) === 2

Makefile

default: all

all: compile test

compile:
	cs3110 compile -t -p core -p async main.ml
	cs3110 compile -t -p core -p async main_test.ml

test: compile
	cs3110 test main_test.ml

clean:
	cs3110 clean all
	rm -f inline_tests.log

.PHONY: default all compile test clean