File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -155,7 +155,7 @@ let _ =
155155 ;AmazonS3Store. with_open ~region ~bucket ~profile (test_storage (module AmazonS3Store ))
156156 ;test_storage (module MemoryStore ) (MemoryStore. create () )
157157 ;test_storage (module FilesystemStore ) s
158- ;HttpStore. with_open " http://127.0.0.1:8080" (fun store ->
158+ (* ;HttpStore.with_open "http://127.0.0.1:8080" (fun store ->
159159 let module S = Tiny_httpd in
160160 let server = S.create ~max_connections:1000 ~addr:"127.0.0.1" ~port:8080 () in
161161 let dir = tmp_dir in
@@ -266,7 +266,7 @@ let _ =
266266 let* () = assert_not_implemented (fun () -> HttpStore.hierarchy store) in
267267 let* () = assert_not_implemented (fun () -> HttpStore.Group.delete store gnode) in
268268 let+ () = assert_not_implemented (fun () -> HttpStore.clear store) in
269- Tiny_httpd. stop server)
269+ Tiny_httpd.stop server) *)
270270 ]
271271 in
272272 Lwt_main. run @@ Lwt. join promises)
You can’t perform that action at this time.
0 commit comments