From 166a3c5df9305974ad83265c33f581bf30bfa460 Mon Sep 17 00:00:00 2001 From: Antonio Nuno Monteiro Date: Sun, 19 Apr 2020 18:41:36 -0700 Subject: [PATCH] tests: rename backpressure request handler --- lib_test/test_httpaf.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib_test/test_httpaf.ml b/lib_test/test_httpaf.ml index 3d78838..bf79b75 100644 --- a/lib_test/test_httpaf.ml +++ b/lib_test/test_httpaf.ml @@ -1151,18 +1151,18 @@ Accept-Language: en-US,en;q=0.5\r\n\r\n"; Alcotest.(check bool) "Reader woken up" true !reader_woken_up; ;; - let request_handler continue_reading reqd = + let backpressure_request_handler continue_reading reqd = let request_body = Reqd.request_body reqd in let rec on_read _buffer ~off:_ ~len:_ = continue_reading := (fun () -> Body.schedule_read request_body ~on_eof ~on_read); - and on_eof () = print_endline "got eof" in + and on_eof () = print_endline ("got eof" ^ (string_of_bool (Body.is_closed request_body))) in Body.schedule_read request_body ~on_eof ~on_read let test_handling_backpressure_when_read_not_scheduled () = let reader_woken_up = ref false in let continue_reading = ref (fun () -> ()) in - let t = create ~error_handler (request_handler continue_reading) in + let t = create ~error_handler (backpressure_request_handler continue_reading) in reader_ready t; writer_yielded t; let request = @@ -1185,7 +1185,7 @@ Accept-Language: en-US,en;q=0.5\r\n\r\n"; let test_handling_backpressure_when_read_not_scheduled_early_yield () = let reader_woken_up = ref false in let continue_reading = ref (fun () -> ()) in - let t = create ~error_handler (request_handler continue_reading) in + let t = create ~error_handler (backpressure_request_handler continue_reading) in reader_ready t; writer_yielded t; let request =