tests/testthat/test-utils.R

In r-pkgs/gargle: Utilities for Working with Google APIs

test_that("add_email_scope() works", {
  email_url <- add_email_scope()
  expect_length(email_url, 1)
  expect_equal(add_email_scope(email_url), email_url)
  expect_equal(
    add_email_scope("whatever"),
    c("whatever", email_url)
  )
  expect_equal(
    add_email_scope(c("whatever" = "whatever")),
    c("whatever", email_url)
  )
})

test_that("base_scope() extracts the last scope part", {
  scopes <- c(
    "https://www.googleapis.com/auth/userinfo.email",
    "https://www.googleapis.com/auth/drive",
    "https://www.googleapis.com/auth/gmail.readonly",
    "https://www.googleapis.com/auth/gmail.modify",
    "https://www.googleapis.com/auth/gmail.compose",
    "https://mail.google.com/"
  )
  out <- base_scope(scopes)
  expect_equal(
    out,
    c(
      "...userinfo.email", "...drive", "...gmail.readonly", "...gmail.modify",
      "...gmail.compose", "...mail.google.com"
    )
  )
})

test_that("obfuscate() works", {
  x <- c("123", "12345", "123456789")
  expect_equal(
    obfuscate(x, first = 1, last = 1),
    c("1...3", "1...5", "1...9")
  )
  expect_equal(
    obfuscate(x, first = 2, last = 1),
    c("123", "12...5", "12...9")
  )
  expect_equal(
    obfuscate(x, first = 4, last = 1),
    c("123", "12345", "1234...9")
  )
  expect_equal(
    obfuscate(x, first = 3, last = 3),
    c("123", "12345", "123...789")
  )
})