mirror of
https://github.com/ocaml-multicore/eio.git
synced 2025-12-06 00:01:25 -05:00
e189fc4004
It was a bit confusing having two different API libraries. Instead of opening `Fibreslib`, it is now suggested to open `Eio.Std`, which exports fewer things.
32 lines
971 B
OCaml
32 lines
971 B
OCaml
(* basic tests using effects *)
|
|
|
|
open Eunix
|
|
open Eio.Std
|
|
module Int63 = Optint.Int63
|
|
|
|
let setup_log level =
|
|
Fmt_tty.setup_std_outputs ();
|
|
Logs.set_level level;
|
|
Logs.set_reporter (Logs_fmt.reporter ())
|
|
|
|
let () =
|
|
setup_log (Some Logs.Debug);
|
|
run @@ fun _stdenv ->
|
|
Switch.top @@ fun sw ->
|
|
let fd = Unix.handle_unix_error (Eunix.openfile ~sw "test.txt" Unix.[O_RDONLY]) 0 in
|
|
let buf = alloc () in
|
|
let _ = read_exactly fd buf 5 in
|
|
print_endline (Uring.Region.to_string ~len:5 buf);
|
|
let _ = read_exactly fd ~file_offset:(Int63.of_int 3) buf 3 in
|
|
print_endline (Uring.Region.to_string ~len:3 buf);
|
|
free buf;
|
|
(* With a sleep: *)
|
|
let buf = alloc () in
|
|
let _ = read_exactly fd buf 5 in
|
|
Logs.debug (fun l -> l "sleeping at %f" (Unix.gettimeofday ()));
|
|
sleep 1.0;
|
|
print_endline (Uring.Region.to_string ~len:5 buf);
|
|
let _ = read_exactly fd ~file_offset:(Int63.of_int 3) buf 3 in
|
|
print_endline (Uring.Region.to_string ~len:3 buf);
|
|
free buf;
|