let fail s =
failed_tests := s :: !failed_tests;
if List.length !failed_tests > max_failures then (
List.iter !failed_tests ~f:(fun t ->
eprintf "Failed test: %S\n%!" t
);
raise Tests_failed
) else ()