(defun test ()
  (with-temp-buffer
    (insert-file-contents "~/examples/sample-response.json")
    (goto-char (point-min))
    (json-parse-buffer)))

(let ((gc-cons-threshold most-positive-fixnum))
  (benchmark 100 '(test)))