tests/testthat/test-utils.R

context("test-utils.R")

test_that("preparing .Renviron file works", {
  prepare_Renviron()
  r_env_lines <- readLines(construct_Renviron_path())

  for (type in c("email", "password")) {
    expect_true(any(grepl(paste0("^BacDive_", type, "="), r_env_lines)))
  }
})
TIBHannover/BacDiveR documentation built on June 2, 2022, 2:51 p.m.