1 # Copyright (C) The Arvados Authors. All rights reserved.
3 # SPDX-License-Identifier: Apache-2.0
5 FakeHttpParser <- R6::R6Class(
11 validContentTypes = NULL,
12 parserCallCount = NULL,
14 initialize = function()
16 self$parserCallCount <- 0
17 self$validContentTypes <- c("text", "raw")
20 parseJSONResponse = function(serverResponse)
22 self$parserCallCount <- self$parserCallCount + 1
24 if(!is.null(serverResponse$content))
25 return(serverResponse$content)
30 parseResponse = function(serverResponse, outputType)
32 self$parserCallCount <- self$parserCallCount + 1
34 if(!is.null(serverResponse$content))
35 return(serverResponse$content)
40 getFileNamesFromResponse = function(serverResponse, uri)
42 self$parserCallCount <- self$parserCallCount + 1
44 if(!is.null(serverResponse$content))
45 return(serverResponse$content)
50 getFileSizesFromResponse = function(serverResponse, uri)
52 self$parserCallCount <- self$parserCallCount + 1
54 if(!is.null(serverResponse$content))
55 return(serverResponse$content)