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             self$returnContent
  37         },
  38
  39         delete = function(relativePath, uuid)
  40         {
  41             self$deleteCallCount <- self$deleteCallCount + 1
  42             self$returnContent
  43         },
  44
  45         move = function(from, to, uuid)
  46         {
  47             self$moveCallCount <- self$moveCallCount + 1
  48             self$returnContent
  49         },
  50
  51         getCollectionContent = function(uuid)
  52         {
  53             self$getCollectionContentCallCount <- self$getCollectionContentCallCount + 1
  54             self$collectionContent
  55         },
  56
  57         getResourceSize = function(uuid, relativePathToResource)
  58         {
  59             self$getResourceSizeCallCount <- self$getResourceSizeCallCount + 1
  60             self$returnContent
  61         },
  62
  63         read = function(uuid, relativePath, contentType = "text", offset = 0, length = 0)
  64         {
  65             self$readCallCount <- self$readCallCount + 1
  66             self$returnContent
  67         },
  68
  69         write = function(uuid, relativePath, content, contentType)
  70         {
  71             self$writeBuffer <- content
  72             self$writeCallCount <- self$writeCallCount + 1
  73             self$returnContent
  74         }
  75     ),
  76
  77     cloneable = FALSE
  78 )