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

   1 FakeRESTService <- R6::R6Class(
   2
   3     "FakeRESTService",
   4
   5     public = list(
   6
   7         getResourceCallCount    = NULL,
   8         createResourceCallCount = NULL,
   9         listResourcesCallCount  = NULL,
  10         deleteResourceCallCount = NULL,
  11         updateResourceCallCount = NULL,
  12         fetchAllItemsCallCount  = NULL,
  13
  14         createCallCount               = NULL,
  15         deleteCallCount               = NULL,
  16         moveCallCount                 = NULL,
  17         getCollectionContentCallCount = NULL,
  18         getResourceSizeCallCount      = NULL,
  19         readCallCount                 = NULL,
  20         writeCallCount                = NULL,
  21         writeBuffer                   = NULL,
  22
  23         collectionContent = NULL,
  24         returnContent = NULL,
  25
  26         initialize = function(collectionContent = NULL, returnContent = NULL)
  27         {
  28             self$getResourceCallCount    <- 0
  29             self$createResourceCallCount <- 0
  30             self$listResourcesCallCount  <- 0
  31             self$deleteResourceCallCount <- 0
  32             self$updateResourceCallCount <- 0
  33             self$fetchAllItemsCallCount  <- 0
  34
  35             self$createCallCount               <- 0
  36             self$deleteCallCount               <- 0
  37             self$moveCallCount                 <- 0
  38             self$getCollectionContentCallCount <- 0
  39             self$getResourceSizeCallCount      <- 0
  40             self$readCallCount                 <- 0
  41             self$writeCallCount                <- 0
  42
  43             self$collectionContent <- collectionContent
  44             self$returnContent <- returnContent
  45         },
  46
  47         getWebDavHostName = function()
  48         {
  49         },
  50
  51         getResource = function(resource, uuid)
  52         {
  53             self$getResourceCallCount <- self$getResourceCallCount + 1
  54             self$returnContent
  55         },
  56
  57         listResources = function(resource, filters = NULL, limit = 100, offset = 0)
  58         {
  59             self$listResourcesCallCount <- self$listResourcesCallCount + 1
  60             self$returnContent
  61         },
  62
  63         fetchAllItems = function(resourceURL, filters)
  64         {
  65             self$fetchAllItemsCallCount <- self$fetchAllItemsCallCount + 1
  66             self$returnContent
  67         },
  68
  69         deleteResource = function(resource, uuid)
  70         {
  71             self$deleteResourceCallCount <- self$deleteResourceCallCount + 1
  72             self$returnContent
  73         },
  74
  75         updateResource = function(resource, uuid, newContent)
  76         {
  77             self$updateResourceCallCount <- self$updateResourceCallCount + 1
  78             self$returnContent
  79         },
  80
  81         createResource = function(resource, content)
  82         {
  83             self$createResourceCallCount <- self$createResourceCallCount + 1
  84             self$returnContent
  85         },
  86
  87         create = function(files, uuid)
  88         {
  89             self$createCallCount <- self$createCallCount + 1
  90             self$returnContent
  91         },
  92
  93         delete = function(relativePath, uuid)
  94         {
  95             self$deleteCallCount <- self$deleteCallCount + 1
  96             self$returnContent
  97         },
  98
  99         move = function(from, to, uuid)
 100         {
 101             self$moveCallCount <- self$moveCallCount + 1
 102             self$returnContent
 103         },
 104
 105         getCollectionContent = function(uuid)
 106         {
 107             self$getCollectionContentCallCount <- self$getCollectionContentCallCount + 1
 108             self$collectionContent
 109         },
 110
 111         getResourceSize = function(uuid, relativePathToResource)
 112         {
 113             self$getResourceSizeCallCount <- self$getResourceSizeCallCount + 1
 114             self$returnContent
 115         },
 116
 117         read = function(relativePath, uuid, contentType = "text", offset = 0, length = 0)
 118         {
 119             self$readCallCount <- self$readCallCount + 1
 120             self$returnContent
 121         },
 122
 123         write = function(uuid, relativePath, content, contentType)
 124         {
 125             self$writeBuffer <- content
 126             self$writeCallCount <- self$writeCallCount + 1
 127             self$returnContent
 128         }
 129     ),
 130
 131     cloneable = FALSE
 132 )