tests/testthat/test-path.R

In thaipdf: R Markdown to PDF in Thai Language

# Fun: path() -------------------------------------------------------------


test_that("path() is working",{
  path <- thaipdf_paths()
  expect_type(path, "list")
})


test_that("before_body() is working", {
  path_bb <- before_body()
  expect_type(path_bb, "character")
  expect_true(fs::file_exists(path_bb))
})