tests/testthat/test-create-presentation.R

test_that("create_presentation", {
  skip_on_cran()
  tmp <- tempdir()
  create_presentation(stimuli = 1:3, output_dir = tmp)
  create_presentation(stimuli = 1:3, output_dir = tmp, render = FALSE)
  expect_true("stimuli_presentation.html" %in% list.files(tmp))
  rm(tmp)
})
agricolamz/lingfieldwork documentation built on Aug. 2, 2024, 10:47 p.m.