1 FakeRESTService <- R6::R6Class(
7 getResourceCallCount = NULL,
8 createResourceCallCount = NULL,
9 listResourcesCallCount = NULL,
10 deleteResourceCallCount = NULL,
11 updateResourceCallCount = NULL,
12 fetchAllItemsCallCount = NULL,
14 createCallCount = NULL,
15 deleteCallCount = NULL,
17 getCollectionContentCallCount = NULL,
18 getResourceSizeCallCount = NULL,
20 writeCallCount = NULL,
21 getConnectionCallCount = NULL,
23 filtersAreConfiguredCorrectly = NULL,
24 bodyIsConfiguredCorrectly = NULL,
25 expectedFilterContent = NULL,
27 collectionContent = NULL,
30 initialize = function(collectionContent = NULL, returnContent = NULL,
31 expectedFilterContent = NULL)
33 self$getResourceCallCount <- 0
34 self$createResourceCallCount <- 0
35 self$listResourcesCallCount <- 0
36 self$deleteResourceCallCount <- 0
37 self$updateResourceCallCount <- 0
38 self$fetchAllItemsCallCount <- 0
40 self$createCallCount <- 0
41 self$deleteCallCount <- 0
42 self$moveCallCount <- 0
43 self$getCollectionContentCallCount <- 0
44 self$getResourceSizeCallCount <- 0
45 self$readCallCount <- 0
46 self$writeCallCount <- 0
47 self$getConnectionCallCount <- 0
48 self$filtersAreConfiguredCorrectly <- FALSE
49 self$bodyIsConfiguredCorrectly <- FALSE
51 self$collectionContent <- collectionContent
52 self$returnContent <- returnContent
53 self$expectedFilterContent <- expectedFilterContent
56 getWebDavHostName = function()
60 getResource = function(resource, uuid)
62 self$getResourceCallCount <- self$getResourceCallCount + 1
66 listResources = function(resource, filters = NULL, limit = 100, offset = 0)
68 self$listResourcesCallCount <- self$listResourcesCallCount + 1
70 if(!is.null(self$expectedFilterContent) && !is.null(filters))
71 if(all.equal(filters, self$expectedFilterContent))
72 self$filtersAreConfiguredCorrectly <- TRUE
77 fetchAllItems = function(resourceURL, filters)
79 self$fetchAllItemsCallCount <- self$fetchAllItemsCallCount + 1
81 if(!is.null(self$expectedFilterContent) && !is.null(filters))
82 if(all.equal(filters, self$expectedFilterContent))
83 self$filtersAreConfiguredCorrectly <- TRUE
88 deleteResource = function(resource, uuid)
90 self$deleteResourceCallCount <- self$deleteResourceCallCount + 1
94 updateResource = function(resource, uuid, newContent)
96 self$updateResourceCallCount <- self$updateResourceCallCount + 1
98 if(!is.null(self$returnContent) && !is.null(newContent))
99 if(all.equal(newContent, self$returnContent))
100 self$bodyIsConfiguredCorrectly <- TRUE
105 createResource = function(resource, content)
107 self$createResourceCallCount <- self$createResourceCallCount + 1
109 if(!is.null(self$returnContent) && !is.null(content))
110 if(all.equal(content, self$returnContent))
111 self$bodyIsConfiguredCorrectly <- TRUE
116 create = function(files, uuid)
118 self$createCallCount <- self$createCallCount + 1
122 delete = function(relativePath, uuid)
124 self$deleteCallCount <- self$deleteCallCount + 1
128 move = function(from, to, uuid)
130 self$moveCallCount <- self$moveCallCount + 1
134 getCollectionContent = function(uuid)
136 self$getCollectionContentCallCount <- self$getCollectionContentCallCount + 1
137 self$collectionContent
140 getResourceSize = function(uuid, relativePathToResource)
142 self$getResourceSizeCallCount <- self$getResourceSizeCallCount + 1
146 read = function(relativePath, uuid, contentType = "text", offset = 0, length = 0)
148 self$readCallCount <- self$readCallCount + 1
152 write = function(uuid, relativePath, content, contentType)
154 self$writeBuffer <- content
155 self$writeCallCount <- self$writeCallCount + 1
159 getConnection = function(relativePath, uuid, openMode)
161 self$getConnectionCallCount <- self$getConnectionCallCount + 1