test_async.ml

(*
 *Compile with:
 *ocamlfind ocamlc -o test_async -thread -linkpkg -package core,async test_async.ml
 *Run with:
 *./test_async
 *)
open Async.Std
open Core.Std
open Async.Std.Deferred.Infix

let () =
  Clock.run_after (sec 5.0) (fun _ -> print_endline "After 5 seconds") ();
  Clock.run_after (sec 10.0) (fun _ -> print_endline "After 10 seconds") ();
  Clock.every (sec 1.0) (fun () -> print_endline "   From clock 1!");
  Clock.every (sec 2.0) (fun () -> print_endline "   From clock 2!");
  never_returns (Scheduler.go ())