File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -730,7 +730,7 @@ let test_http_connect_tunnel proxy () =
730730 | Ok flow ->
731731 Log. info (fun f -> f " Connected to %s:3128" (Ipaddr.V4. to_string primary_dns_ip));
732732 let oc = Outgoing.C. create flow in
733- let host = " www.mobyproject.org " in
733+ let host = " neverssl.com " in
734734 let request = Cohttp.Request. make ~meth: `GET (Uri. make ~host () ) in
735735 Outgoing.Request. write ~flush: true (fun _writer -> Lwt. return_unit) request oc
736736 >> = fun () ->
@@ -960,7 +960,7 @@ let test_http_connect_tunnel proxy () =
960960 | Ok flow ->
961961 Log. info (fun f -> f " Connected to %s:3128" (Ipaddr.V4. to_string primary_dns_ip));
962962 let oc = Outgoing.C. create flow in
963- let host = " www.mobyproject.org " in
963+ let host = " neverssl.com " in
964964 let request = Cohttp.Request. make ~meth: `HEAD (Uri. make ~host () ) in
965965 Outgoing.Request. write ~flush: true (fun _writer -> Lwt. return_unit) request oc
966966 >> = fun () ->
You can’t perform that action at this time.
0 commit comments