tests/testthat/test-get_translation.R

test_that("get_translation", {

  testthat::expect_error(get_translation(local_path = ".", language = "german"), NA)
  pdfs <- list.files(path = ".", pattern = "*.pdf", full.names = TRUE)
  purrr::map(pdfs, fs::file_delete)


})

Try the cheatsheet package in your browser

Any scripts or data that you put into this service are public.

cheatsheet documentation built on May 1, 2023, 5:20 p.m.