Commits

Anonymous committed c6dbab2

commented code that shows Gc.allocated_bytes

  • Participants
  • Parent commits 0a04166

Comments (0)

Files changed (1)

tests/test_http_service.ml

   (* let () =
        if segpath = ["stop"] then S.listener_stop my_listener else () in
    *)
+  (*
+  let txt =
+    if segpath = ["gc"]
+    then Printf.sprintf "%salloc=%f\n" txt (Gc.allocated_bytes ())
+    else txt
+  in
+  *)
   I.return
   { rs_status_code = 200
   ; rs_reason_phrase = "OK"