sdk/R/tests/testthat/test-Arvados.R

   1 context("Arvados API")
   2
   3 test_that("Arvados constructor will use environment variables if no parameters are passed to it", {
   4
   5     Sys.setenv(ARVADOS_API_HOST  = "environment_api_host")
   6     Sys.setenv(ARVADOS_API_TOKEN = "environment_api_token")
   7
   8     arv <- Arvados$new()
   9
  10     Sys.unsetenv("ARVADOS_API_HOST")
  11     Sys.unsetenv("ARVADOS_API_TOKEN")
  12
  13     expect_that("https://environment_api_host/arvados/v1/",
  14                 equals(arv$getHostName()))
  15
  16     expect_that("environment_api_token",
  17                 equals(arv$getToken()))
  18 })
  19
  20 test_that("Arvados constructor preferes constructor fields over environment variables", {
  21
  22     Sys.setenv(ARVADOS_API_HOST  = "environment_api_host")
  23     Sys.setenv(ARVADOS_API_TOKEN = "environment_api_token")
  24
  25     arv <- Arvados$new("constructor_api_token", "constructor_api_host")
  26
  27     Sys.unsetenv("ARVADOS_API_HOST")
  28     Sys.unsetenv("ARVADOS_API_TOKEN")
  29
  30     expect_that("https://constructor_api_host/arvados/v1/",
  31                 equals(arv$getHostName()))
  32
  33     expect_that("constructor_api_token",
  34                 equals(arv$getToken()))
  35 })