Merge branch 'main' from workbench2.git
[arvados.git] / sdk / R / tests / testthat / fakes / FakeArvados.R
1 # Copyright (C) The Arvados Authors. All rights reserved.
2 #
3 # SPDX-License-Identifier: Apache-2.0
4
5 FakeArvados <- R6::R6Class(
6
7     "FakeArvados",
8
9     public = list(
10
11         token      = NULL,
12         host       = NULL,
13         webdavHost = NULL,
14         http       = NULL,
15         httpParser = NULL,
16         REST       = NULL,
17
18         initialize = function(token      = NULL,
19                               host       = NULL,
20                               webdavHost = NULL,
21                               http       = NULL,
22                               httpParser = NULL)
23         {
24             self$token      <- token
25             self$host       <- host
26             self$webdavHost <- webdavHost
27             self$http       <- http
28             self$httpParser <- httpParser
29         },
30
31         getToken    = function() self$token,
32         getHostName = function() self$host,
33         getHttpClient = function() self$http,
34         getHttpParser = function() self$httpParser,
35         getWebDavHostName = function() self$webdavHost
36     ),
37
38     cloneable = FALSE
39 )