tests/testthat/test-trackdown_auth.R

In ekothe/trackdown: Collaborative Editing of Rmd (or Quarto / Rnw) Documents in Google Drive

####################################
####    test trackdown Auth     ####
####################################

#----    check_from_trackdown    ----

test_that("check check_from_trackdown() wprks properly", {
  expect_null(check_from_trackdown())
})


#----    trackdown_app    ----

test_that("check check_from_trackdown() wprks properly", {
  expect_match(.trackdown_auth()$appname, "trackdown-rpackage")
  expect_equal(length(.trackdown_auth()), 7)
})