sdk/R/tests/testthat/fakes/FakeRESTService.R

   1 FakeRESTService <- R6::R6Class(
   2
   3     "FakeRESTService",
   4
   5     public = list(
   6
   7         createCallCount               = NULL,
   8         deleteCallCount               = NULL,
   9         moveCallCount                 = NULL,
  10         getCollectionContentCallCount = NULL,
  11         getResourceSizeCallCount      = NULL,
  12         readCallCount                 = NULL,
  13         writeCallCount                = NULL,
  14         writeBuffer                   = NULL,
  15
  16         collectionContent = NULL,
  17         returnContent = NULL,
  18
  19         initialize = function(collectionContent = NULL, returnContent = NULL)
  20         {
  21             self$createCallCount               <- 0
  22             self$deleteCallCount               <- 0
  23             self$moveCallCount                 <- 0
  24             self$getCollectionContentCallCount <- 0
  25             self$getResourceSizeCallCount      <- 0
  26             self$readCallCount                 <- 0
  27             self$writeCallCount                <- 0
  28
  29             self$collectionContent <- collectionContent
  30             self$returnContent <- returnContent
  31         },
  32
  33         create = function(files, uuid)
  34         {
  35             self$createCallCount <- self$createCallCount + 1
  36
  37             self$returnContent
  38         },
  39
  40         delete = function(relativePath, uuid)
  41         {
  42             self$deleteCallCount <- self$deleteCallCount + 1
  43             self$returnContent
  44         },
  45
  46         move = function(from, to, uuid)
  47         {
  48             self$moveCallCount <- self$moveCallCount + 1
  49             self$returnContent
  50         },
  51
  52         getCollectionContent = function(uuid)
  53         {
  54             self$getCollectionContentCallCount <- self$getCollectionContentCallCount + 1
  55             self$collectionContent
  56         },
  57
  58         getResourceSize = function(uuid, relativePathToResource)
  59         {
  60             self$getResourceSizeCallCount <- self$getResourceSizeCallCount + 1
  61             self$returnContent
  62         },
  63
  64         read = function(uuid, relativePath, contentType = "text", offset = 0, length = 0)
  65         {
  66             self$readCallCount <- self$readCallCount + 1
  67             self$returnContent
  68         },
  69
  70         write = function(uuid, relativePath, content, contentType)
  71         {
  72             self$writeBuffer <- content
  73             self$writeCallCount <- self$writeCallCount + 1
  74             self$returnContent
  75         }
  76     ),
  77
  78     cloneable = FALSE
  79 )