tests/testthat/test-stringi.R

In LCBC-UiO/tsdrtools: Convenience package for installing R-packages on UiO TSD

wrkdir <- testthat::test_path("testfldr")
zip_file <- paste0(wrkdir, ".zip")
package <- "stringi"

test_that("tsd_package_prepare stringi works", {

  k <- tsd_package_prepare(package, folder = wrkdir,
                           verbose = FALSE,
                           repos = "https://cloud.r-project.org/")

  ffs <- list.files(wrkdir)
  expect_true("pkg_install_order.list" %in% ffs)
  expect_true("icudt61l.zip" %in% ffs)

  # Remove test folder
  j <- unlink(wrkdir, recursive = TRUE)
  expect_true(j == 0)
})

test_that("tsd_package_install stringi works", {

  expect_false(any(grepl(wrkdir, list.dirs(test_path()))))

  j <- tsd_package_install(zip_file, verbose = FALSE)

  pkgs <- readLines(file.path(wrkdir, "pkg_install_order.list"))
  pkgs <- strsplit(gsub("\\.tar\\.gz", "", pkgs), "_")
  pkgs <- data.frame(Package = sapply(pkgs, function(x) x[1]),
                     Version_new = sapply(pkgs, function(x) x[2]))

  k <- as.data.frame(installed.packages())
  k <- k[k$Package %in% pkgs$Package, c("Package", "Version")]

  k <- merge(k, pkgs)
  k$check <- k$Version == k$Version_new

  expect_true(all(k$check))

  # Remove test folder
  unlink(c(wrkdir,zip_file), recursive = TRUE)
})