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

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