tests/testthat/test-is_gcae_script_fixed.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_silent(
    clone_gcae_repo(
      gcae_options,
      github_repo_url = "https://github.com/cnettel/GenoCAE",
      github_repo_branch_name = "Pheno"
    )
  )
  expect_false(is_gcae_script_fixed(gcae_options = gcae_options))
  fix_gcae_script(gcae_options = gcae_options)
  expect_true(is_gcae_script_fixed(gcae_options = gcae_options))
  unlink(gcae_options$gcae_folder, recursive = TRUE)
})