sdk/R/tests/testthat/fakes/FakeHttpParser.R

   1 # Copyright (C) The Arvados Authors. All rights reserved.
   2 #
   3 # SPDX-License-Identifier: Apache-2.0
   4
   5 FakeHttpParser <- R6::R6Class(
   6
   7     "FakeHttrParser",
   8
   9     public = list(
  10
  11         validContentTypes = NULL,
  12         parserCallCount = NULL,
  13
  14         initialize = function()
  15         {
  16             self$parserCallCount <- 0
  17             self$validContentTypes <- c("text", "raw")
  18         },
  19
  20         parseJSONResponse = function(serverResponse)
  21         {
  22             self$parserCallCount <- self$parserCallCount + 1
  23
  24             if(!is.null(serverResponse$content))
  25                 return(serverResponse$content)
  26
  27             serverResponse
  28         },
  29
  30         parseResponse = function(serverResponse, outputType)
  31         {
  32             self$parserCallCount <- self$parserCallCount + 1
  33
  34             if(!is.null(serverResponse$content))
  35                 return(serverResponse$content)
  36
  37             serverResponse
  38         },
  39
  40         getFileNamesFromResponse = function(serverResponse, uri)
  41         {
  42             self$parserCallCount <- self$parserCallCount + 1
  43
  44             if(!is.null(serverResponse$content))
  45                 return(serverResponse$content)
  46
  47             serverResponse
  48         },
  49
  50         getFileSizesFromResponse = function(serverResponse, uri)
  51         {
  52             self$parserCallCount <- self$parserCallCount + 1
  53
  54             if(!is.null(serverResponse$content))
  55                 return(serverResponse$content)
  56
  57             serverResponse
  58         }
  59     )
  60 )