tests/testthat/test-Render.R

In REPLesentR: Presentations in the REPL

testthat::context("Render")

testthat::test_that("", {
  layout <- Layout()
  screen <- Screen(10, 6)
  render <- Render(layout, screen)

  modules::extend(render, {
    slide <- Slide("EMPTY")
    renderInformation <- prepare(slide)
    testthat::expect_true(length(renderInformation) == 6)
    testthat::expect_true(all(nchar(renderInformation) == 11))
  })

  modules::extend(render, {
    slide <- Slide(c("a", "b", "c", "d"))
    renderInformation <- prepare(slide)
    testthat::expect_true(length(renderInformation) == 6)
    testthat::expect_true(all(nchar(renderInformation) == 11))
  })

})


testthat::test_that("width of lines are correctly rendered", {
  layout <- Layout()
  screen <- Screen(80, 22)
  render <- Render(layout, screen)

  modules::extend(render, {
    slide <- helpPage()
    renderInformation <- prepare(slide)
    testthat::expect_true(length(renderInformation) == 22)
    testthat::expect_true(all(nchar(renderInformation) == 81))
  })

  render$singleSlide(helpPage())

})