Test: util_compress

Ivan Jacob Agaloos Pesigan

2021-01-15

library(testthat)
library(jeksterslabRutils)
context("Test util_compress.")

Parameters

Initialize temporary folder in the working directory

tmp_01 <- util_make_subdir()
tmp_02 <- util_make_subdir()

data <- rnorm(n = 10)
compress <- c("xz", "gzip", "bzip2")
Rda <- paste0(
  "filename_",
  1:9,
  ".Rda"
)
Rds <- paste0(
  "filename_",
  1:9,
  ".Rds"
)
Rda <- file.path(
  tmp_01,
  Rda
)
Rds <- file.path(
  tmp_01,
  Rds
)
for (i in seq_along(Rda)) {
  save(data, file = Rda[i])
}
for (i in seq_along(compress)) {
  util_compress(
    dir = tmp_01,
    format = "Rda",
    compress = compress[i],
    par = FALSE
  )
}
for (i in seq_along(Rds)) {
  saveRDS(data, file = Rds[i])
}
for (i in seq_along(compress)) {
  util_compress(
    dir = tmp_01,
    format = "Rds",
    compress = compress[i],
    par = FALSE
  )
}
list.files(tmp_01)
#>  [1] "filename_1.Rda" "filename_1.Rds" "filename_2.Rda" "filename_2.Rds"
#>  [5] "filename_3.Rda" "filename_3.Rds" "filename_4.Rda" "filename_4.Rds"
#>  [9] "filename_5.Rda" "filename_5.Rds" "filename_6.Rda" "filename_6.Rds"
#> [13] "filename_7.Rda" "filename_7.Rds" "filename_8.Rda" "filename_8.Rds"
#> [17] "filename_9.Rda" "filename_9.Rds"
test_that("expect_true", {
  expect_true(
    TRUE
  )
})
#> Test passed 😸

Expect error

test_that("error", {
  expect_error(
    util_compress(
      dir = tmp_02,
      format = "doc",
      compress = "xz",
      par = FALSE
    )
  )
})
#> Test passed 😸
test_that("error", {
  expect_error(
    util_compress(
      dir = tmp_01,
      format = "Rds",
      compress = "doc",
      par = FALSE
    )
  )
})
#> Test passed 🎊

Clean up files and folders

util_clean_dir(
  dir = tmp_01,
  create_dir = FALSE
)
util_clean_dir(
  dir = tmp_02,
  create_dir = FALSE
)