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 )