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,
21 getCollectionContentCallCount = NULL,
22 getResourceSizeCallCount = NULL,
24 writeCallCount = NULL,
25 getConnectionCallCount = NULL,
27 filtersAreConfiguredCorrectly = NULL,
28 bodyIsConfiguredCorrectly = NULL,
29 expectedFilterContent = NULL,
31 collectionContent = NULL,
34 initialize = function(collectionContent = NULL, returnContent = NULL,
35 expectedFilterContent = NULL)
37 self$getResourceCallCount <- 0
38 self$createResourceCallCount <- 0
39 self$listResourcesCallCount <- 0
40 self$deleteResourceCallCount <- 0
41 self$updateResourceCallCount <- 0
42 self$fetchAllItemsCallCount <- 0
44 self$createCallCount <- 0
45 self$deleteCallCount <- 0
46 self$moveCallCount <- 0
47 self$getCollectionContentCallCount <- 0
48 self$getResourceSizeCallCount <- 0
49 self$readCallCount <- 0
50 self$writeCallCount <- 0
51 self$getConnectionCallCount <- 0
52 self$filtersAreConfiguredCorrectly <- FALSE
53 self$bodyIsConfiguredCorrectly <- FALSE
55 self$collectionContent <- collectionContent
56 self$returnContent <- returnContent
57 self$expectedFilterContent <- expectedFilterContent
60 getWebDavHostName = function()
64 getResource = function(resource, uuid)
66 self$getResourceCallCount <- self$getResourceCallCount + 1
70 listResources = function(resource, filters = NULL, limit = 100, offset = 0)
72 self$listResourcesCallCount <- self$listResourcesCallCount + 1
74 if(!is.null(self$expectedFilterContent) && !is.null(filters))
75 if(all.equal(filters, self$expectedFilterContent))
76 self$filtersAreConfiguredCorrectly <- TRUE
81 fetchAllItems = function(resourceURL, filters)
83 self$fetchAllItemsCallCount <- self$fetchAllItemsCallCount + 1
85 if(!is.null(self$expectedFilterContent) && !is.null(filters))
86 if(all.equal(filters, self$expectedFilterContent))
87 self$filtersAreConfiguredCorrectly <- TRUE
92 deleteResource = function(resource, uuid)
94 self$deleteResourceCallCount <- self$deleteResourceCallCount + 1
98 updateResource = function(resource, uuid, newContent)
100 self$updateResourceCallCount <- self$updateResourceCallCount + 1
102 if(!is.null(self$returnContent) && !is.null(newContent))
103 if(all.equal(newContent, self$returnContent))
104 self$bodyIsConfiguredCorrectly <- TRUE
109 createResource = function(resource, content)
111 self$createResourceCallCount <- self$createResourceCallCount + 1
113 if(!is.null(self$returnContent) && !is.null(content))
114 if(all.equal(content, self$returnContent))
115 self$bodyIsConfiguredCorrectly <- TRUE
120 create = function(files, uuid)
122 self$createCallCount <- self$createCallCount + 1
126 delete = function(relativePath, uuid)
128 self$deleteCallCount <- self$deleteCallCount + 1
132 move = function(from, to, uuid)
134 self$moveCallCount <- self$moveCallCount + 1
138 getCollectionContent = function(uuid)
140 self$getCollectionContentCallCount <- self$getCollectionContentCallCount + 1
141 self$collectionContent
144 getResourceSize = function(uuid, relativePathToResource)
146 self$getResourceSizeCallCount <- self$getResourceSizeCallCount + 1
150 read = function(relativePath, uuid, contentType = "text", offset = 0, length = 0)
152 self$readCallCount <- self$readCallCount + 1
156 write = function(relativePath, uuid, content, contentType)
158 self$writeBuffer <- content
159 self$writeCallCount <- self$writeCallCount + 1
163 getConnection = function(uuid, relativePath, openMode)
165 self$getConnectionCallCount <- self$getConnectionCallCount + 1