tests/testthat/test-notion-request.R

In notionapi: Client for the 'Notion API'

test_that("notion_token_exists", {
  original_token <- Sys.getenv("NOTION_TOKEN")
  on.exit(Sys.setenv(NOTION_TOKEN = original_token))

  Sys.setenv(NOTION_TOKEN = "test_token")
  expect_true(notion_token_exists())

  Sys.setenv(NOTION_TOKEN = "")
  expect_false(notion_token_exists())
})