1 # Copyright (C) The Arvados Authors. All rights reserved.
3 # SPDX-License-Identifier: Apache-2.0
5 FakeRESTService <- R6::R6Class(
11 getResourceCallCount = NULL,
12 createResourceCallCount = NULL,
13 listResourcesCallCount = NULL,
14 deleteResourceCallCount = NULL,
15 updateResourceCallCount = NULL,
16 fetchAllItemsCallCount = NULL,
18 createCallCount = NULL,
19 deleteCallCount = NULL,
22 getCollectionContentCallCount = NULL,
23 getResourceSizeCallCount = NULL,
25 writeCallCount = NULL,
26 getConnectionCallCount = NULL,
28 filtersAreConfiguredCorrectly = NULL,
29 bodyIsConfiguredCorrectly = NULL,
30 expectedFilterContent = NULL,
32 collectionContent = NULL,
35 initialize = function(collectionContent = NULL, returnContent = NULL,
36 expectedFilterContent = NULL)
38 self$getResourceCallCount <- 0
39 self$createResourceCallCount <- 0
40 self$listResourcesCallCount <- 0
41 self$deleteResourceCallCount <- 0
42 self$updateResourceCallCount <- 0
43 self$fetchAllItemsCallCount <- 0
45 self$createCallCount <- 0
46 self$deleteCallCount <- 0
47 self$moveCallCount <- 0
48 self$copyCallCount <- 0
49 self$getCollectionContentCallCount <- 0
50 self$getResourceSizeCallCount <- 0
51 self$readCallCount <- 0
52 self$writeCallCount <- 0
53 self$getConnectionCallCount <- 0
54 self$filtersAreConfiguredCorrectly <- FALSE
55 self$bodyIsConfiguredCorrectly <- FALSE
57 self$collectionContent <- collectionContent
58 self$returnContent <- returnContent
59 self$expectedFilterContent <- expectedFilterContent
62 getWebDavHostName = function()
66 getResource = function(resource, uuid)
68 self$getResourceCallCount <- self$getResourceCallCount + 1
72 listResources = function(resource, filters = NULL, limit = 100, offset = 0)
74 self$listResourcesCallCount <- self$listResourcesCallCount + 1
76 if(!is.null(self$expectedFilterContent) && !is.null(filters))
77 if(all.equal(filters, self$expectedFilterContent))
78 self$filtersAreConfiguredCorrectly <- TRUE
83 fetchAllItems = function(resourceURL, filters)
85 self$fetchAllItemsCallCount <- self$fetchAllItemsCallCount + 1
87 if(!is.null(self$expectedFilterContent) && !is.null(filters))
88 if(all.equal(filters, self$expectedFilterContent))
89 self$filtersAreConfiguredCorrectly <- TRUE
94 deleteResource = function(resource, uuid)
96 self$deleteResourceCallCount <- self$deleteResourceCallCount + 1
100 updateResource = function(resource, uuid, newContent)
102 self$updateResourceCallCount <- self$updateResourceCallCount + 1
104 if(!is.null(self$returnContent) && !is.null(newContent))
105 if(all.equal(newContent, self$returnContent))
106 self$bodyIsConfiguredCorrectly <- TRUE
111 createResource = function(resource, content)
113 self$createResourceCallCount <- self$createResourceCallCount + 1
115 if(!is.null(self$returnContent) && !is.null(content))
116 if(all.equal(content, self$returnContent))
117 self$bodyIsConfiguredCorrectly <- TRUE
122 create = function(files, uuid)
124 self$createCallCount <- self$createCallCount + 1
128 delete = function(relativePath, uuid)
130 self$deleteCallCount <- self$deleteCallCount + 1
134 move = function(from, to, uuid)
136 self$moveCallCount <- self$moveCallCount + 1
140 copy = function(from, to, uuid)
142 self$copyCallCount <- self$copyCallCount + 1
146 getCollectionContent = function(uuid, relativePath = NULL)
148 self$getCollectionContentCallCount <- self$getCollectionContentCallCount + 1
149 self$collectionContent
152 getResourceSize = function(uuid, relativePathToResource)
154 self$getResourceSizeCallCount <- self$getResourceSizeCallCount + 1
158 read = function(relativePath, uuid, contentType = "text", offset = 0, length = 0)
160 self$readCallCount <- self$readCallCount + 1
164 write = function(relativePath, uuid, content, contentType)
166 self$writeBuffer <- content
167 self$writeCallCount <- self$writeCallCount + 1
171 getConnection = function(uuid, relativePath, openMode)
173 self$getConnectionCallCount <- self$getConnectionCallCount + 1