tests/testthat/test_auth.R

In hdar: 'REST' API Client for Accessing Data on 'WEkEO HDA V2'

library("testthat")
library("hdar")

TOKEN_REGEXP <- "^[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}$"


test_that("Auth: incorrect credentials", {
  client <- Client$new("wrong_user", "wrong_pwd")
  expect_error(client$get_token())
  expect_error(client$token())
})

# test_that("Auth: correct credentials", {
#  client <- Client$new(USER, PWD)
#  expect_no_error(client$get_token())
#  expect_match(client$token(), TOKEN_REGEXP)
# })

test_that("Auth: read credentials from file", {
  client <- Client$new()
  expect_no_error(client$get_token())
  expect_match(client$token(), TOKEN_REGEXP)
})