+# Copyright (C) The Arvados Authors. All rights reserved.
+#
+# SPDX-License-Identifier: Apache-2.0
+
FakeHttpParser <- R6::R6Class(
"FakeHttrParser",
validContentTypes = NULL,
parserCallCount = NULL,
- initialize = function()
+ initialize = function()
{
self$parserCallCount <- 0
self$validContentTypes <- c("text", "raw")
},
- parseJSONResponse = function(serverResponse)
+ parseJSONResponse = function(serverResponse)
{
self$parserCallCount <- self$parserCallCount + 1
serverResponse
},
- getFileSizesFromResponse = function(serverResponse, uri)
+ getFileSizesFromResponse = function(serverResponse, uri)
{
self$parserCallCount <- self$parserCallCount + 1