Test: util_style

Ivan Jacob Agaloos Pesigan

2021-01-15

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

Parameters

Initialize temporary folders in the working directory

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

Copy files from extdata to temporary folder

extdata <- system.file(
  "extdata",
  "tests",
  package = "jeksterslabRutils",
  mustWork = TRUE
)
file_from <- file.path(
  extdata,
  "z.Rmd"
)
file <- file.path(
  tmp_01,
  "z.Rmd"
)
epub_from <- file.path(
  extdata,
  "valid.epub"
)
epub <- file.path(
  tmp_01,
  "valid.epub"
)
output <- file.path(
  tmp_01,
  "z_roxygen.Rmd"
)
file.copy(
  from = c(
    file_from,
    epub_from
  ),
  to = c(
    file,
    epub
  )
)
#> [1] TRUE TRUE

No output

util_style(
  dir = tmp_01,
  par = FALSE
)
#> Styling  1  files:
#>  /media/jeksterslab/scripts/r/jeksterslabRutils/vignettes/tests/RXpCyvgH/z.Rmd ✔ 
#> ─────────────────────────────────────────────────────────────────────────────
#> Status   Count   Legend 
#> ✔    1   File unchanged.
#> ℹ    0   File changed.
#> ✖    0   Styling threw an error.
#> ─────────────────────────────────────────────────────────────────────────────

message <- "No files to style"

Length of files == 0

test_that("expect_message", {
  expect_message(
    util_style(
      files = character(0),
      par = FALSE
    ),
    regexp = message
  )
})
#> Test passed 🥇

Non existent file

test_that("expect_message", {
  expect_message(
    util_style(
      files = "non-existent-file",
      par = FALSE
    ),
    regexp = message
  )
})
#> Test passed 😸

Invalid file

test_that("expect_warning", {
  expect_warning(
    util_style(
      files = epub,
      par = FALSE
    ),
    regexp = "Error styling"
  )
})
#> Styling  1  files:
#>  /media/jeksterslab/scripts/r/jeksterslabRutils/vignettes/tests/RXpCyvgH/valid.epub Test passed 🌈

No R or R Markdown files in dir.

test_that("expect_message", {
  expect_message(
    util_style(
      dir = tmp_02,
      par = FALSE
    ),
    regexp = message
  )
})
#> Test passed 🥇

Clean up temporary files and folders

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