tests/testthat/test-email.R

In r-lib/whoami: Username, Full Name, Email Address, 'GitHub' Username of the Current User

test_that("Email address works", {
  local_mocked_bindings(system = function(...) "jambajoe@joe.joe")
  expect_equal(email_address(), "jambajoe@joe.joe")
})

test_that("EMAIL env var", {
  expect_equal(
    withr::with_envvar(c("EMAIL" = "bugs.bunny@acme.com"), email_address()),
    "bugs.bunny@acme.com"
  )
})