tests/testthat/test-register.R

In aurin: Access Datasets from the 'AURIN' API

# test_that("aur_register works", {
#   # original_key <- Sys.getenv("AURIN_API_USERPWD")
#   aur_register(
#     username = "username",
#     password = "password",
#     add_to_renviron = FALSE,
#     overwrite = FALSE
#   )
#   expect_equal(Sys.getenv("AURIN_API_USERPWD"), "username:password")

#   # if (original_key != "") {
#   #   Sys.setenv(AURIN_API_USERPWD = original_key)
#   # }
# })