tests/testthat/test-sitrep.R

In taylor: Lyrics and Song Data for Taylor Swift's Discography

test_that("sitrep works", {
  withr::local_envvar(list(
    "SPOTIFY_CLIENT_ID" = spotify_testing_key()$client_id,
    "SPOTIFY_CLIENT_SECRET" = spotify_testing_key()$client_secret,
    "SOUNDSTAT_KEY" = soundstat_testing_key()
  ))
  expect_snapshot(taylor_sitrep())

  withr::local_envvar(list(
    "SPOTIFY_CLIENT_ID" = "",
    "SPOTIFY_CLIENT_SECRET" = "",
    "SOUNDSTAT_KEY" = soundstat_testing_key()
  ))
  expect_snapshot(taylor_sitrep())
})