tests/testthat/test-has_cloned_gcae_repo.R

In richelbilderbeek/gcaer: Interface to GCAE

test_that("use", {
  expect_equal(1 + 1, 2) # Prevents testthat warning for empty test
  if (!plinkr::is_on_ci()) return()
  if (!is_gcae_script_fixed()) return()
  gcae_options <- create_gcae_options(gcae_folder = get_gcaer_tempfilename())
  expect_false(has_cloned_gcae_repo(gcae_options = gcae_options))
  expect_silent(clone_gcae_repo(gcae_options))
  expect_true(has_cloned_gcae_repo(gcae_options = gcae_options))
  unlink(gcae_options$gcae_folder, recursive = TRUE)
})