tests/testthat/test-pptx.R

context("PPTX notes")

test_that("The notes are ordered", {

  ex_file = system.file("extdata", "example.pptx", package = "didactr")
  res = ariExtra::pptx_notes(ex_file)
  ans = c("notesSlide1.xml", "notesSlide2.xml")

  expect_identical(names(res), ans)
})
muschellij2/didactr documentation built on March 17, 2021, 12:45 p.m.