tests/testthat/test-add_gloss_gloss_example_make_gloss_list.R

In agricolamz/lingglosses: Interlinear Glossed Linguistic Examples and Abbreviation Lists Generation

test_that("add_gloss(), gloss_example(), make_gloss_list() test", {
  tmp <- tempdir()
  files <- list.files(
    system.file("rmarkdown/templates/lingglosses-document/skeleton/",
                package = "lingglosses", mustWork = TRUE), full.names = TRUE)
  file.copy(files, tmp)
  rmarkdown::render(paste0(tmp, "/skeleton.Rmd"), quiet = TRUE,
                    output_format = "html_document")
  expect_true(file.exists(paste0(tmp, "/skeleton.html")),
              label = "something get wrong in html version")
})