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

   1 FakeHttpParser <- R6::R6Class(
   2
   3     "HttrParser",
   4
   5     public = list(
   6
   7         parserCallCount = NULL,
   8
   9         initialize = function()
  10         {
  11             self$parserCallCount <- 0
  12         },
  13
  14         parseJSONResponse = function(serverResponse)
  15         {
  16             self$parserCallCount <- self$parserCallCount + 1
  17             serverResponse
  18         },
  19
  20         parseWebDAVResponse = function(response, uri)
  21         {
  22             response
  23         },
  24
  25         extractFileSizeFromWebDAVResponse = function(response, uri)
  26         {
  27             response
  28         }
  29     )
  30 )