open CCResult
module T = (val Containers_testlib.make ~__FILE__ ())
include T;;

t @@ fun () -> Error "ohno 42" = fail_printf "ohno %d" 42;;
t @@ fun () -> Error "ohno 42" = fail_fprintf "ohno %d" 42;;

eq (Error "error\ncontext:message(number 42, foo: true)")
  (add_ctxf "message(number %d, foo: %B)" 42 true (Error "error"))
;;

t @@ fun () ->
let called_with = ref None in
let f e = called_with := Some e in
iter_err f (Ok 1);
assert (!called_with = None);
iter_err f (Error 1);
assert (!called_with = Some 1);
true
;;

t @@ fun () -> get_or_failwith (Ok 1) = 1;;

t @@ fun () ->
try
  ignore @@ get_or_failwith (Error "e");
  false
with Failure msg -> msg = "e"
;;

eq (get_lazy (fun _ -> 2) (Ok 1)) 1;;
eq (get_lazy (fun _ -> 2) (Error "error")) 2;;
eq 42 (fold_ok ( + ) 2 (Ok 40));;
eq 40 (fold_ok ( + ) 40 (Error "foo"));;
eq (Ok []) (flatten_l []);;
eq (Ok [ 1; 2; 3 ]) (flatten_l [ Ok 1; Ok 2; Ok 3 ]);;
eq (Error "ohno") (flatten_l [ Ok 1; Error "ohno"; Ok 2; Ok 3; Error "wut" ])