tests/testthat/obsolete/test-distro_osx_image.R

context("testing different OSX")

test_that("OSX Image and distribution change", {

  table_path = neuroc_table_path(user = "neuroconductor")
  destfile = tempfile(fileext = ".txt")
  x = try({
    download.file(url = table_path, destfile = destfile,
                quiet = TRUE)
  })
  if (inherits(x, "try-error") || x != 0) {
    httr::GET(table_path, httr::write_disk(destfile, overwrite = TRUE),
              config = httr::config(ssl_verifypeer = FALSE))
  }
  table_path = destfile
  Sys.setenv("NEUROC_TRAVIS_KEY" = "asdfdsdf")
  Sys.setenv("NEUROC_APPVEYOR_KEY" = "asdfdsdf")

  L = neuroc.deps::neuroc_example_description(package = "cifti")
  res <- use_neuroc_template(
    path = L$description_file,
    table_path = table_path,
    linux_distribution = "xenial",
    osx_image = "xcode10")
  travis = res[["travis"]]
  out = yaml::read_yaml(travis)

  testthat::expect_equal(out$dist, "xenial")
  testthat::expect_equal(out$osx_image, "xcode10")
})
muschellij2/neuroc.deps documentation built on May 23, 2021, 12:21 a.m.