tests/testthat/test-test.R

In JesJehle/test:

context("test-test")

# saveRDS(googledrive::drive_auth(reset = T, cache = F, verbose = F), "gd-test.rds")


test_that("test googledrive", {

  req <- run_googledrive()

  expect_true(class(req) == "list")

})

# test_that("test sf", {
#   expect_true(run_sf()[1] == "sf")
# })
#
# test_that("test reticulate", {
#   data <- run_reticulate()
#   expect_is(data, "py_config")
#   })