tests/testthat/test-utils.R

In revealjs: R Markdown Format for 'reveal.js' Presentations

test_that("reveal options are passed as pandoc variables", {
  expect_equal(process_reveal_option("a", "b"), pandoc_variable_arg("a", "b"))
})

test_that("reveal options with boolean are transformed to JS bool", {
  expect_equal(
    process_reveal_option("a", TRUE),
    pandoc_variable_arg("a", "true")
  )
  expect_equal(
    process_reveal_option("a", FALSE),
    pandoc_variable_arg("a", "false")
  )
})

test_that("reveal options slideNumbers is treated specifically", {
  expect_equal(
    process_reveal_option("slideNumber", "c/t"),
    pandoc_variable_arg("slideNumber", "'c/t'")
  )
  expect_equal(
    process_reveal_option("slideNumber", TRUE),
    pandoc_variable_arg("slideNumber", "true")
  )
})

test_that("reveal options width / heigh in % are quoted", {
  expect_equal(
    process_reveal_option("width", "50%"),
    pandoc_variable_arg("width", "'50%'")
  )
  expect_equal(
    process_reveal_option("height", "50%"),
    pandoc_variable_arg("height", "'50%'")
  )
  expect_equal(
    process_reveal_option("width", 5),
    pandoc_variable_arg("width", "5")
  )
  expect_equal(
    process_reveal_option("height", 5),
    pandoc_variable_arg("height", "5")
  )
})

test_that("reveal options for chalkboard plugins special handling", {
  expect_equal(
    process_reveal_option("chalkboard-background", "rgba(255,255,255,0.5)"),
    pandoc_variable_arg("chalkboard-background", "['rgba(255,255,255,0.5)']")
  )
  expect_equal(
    process_reveal_option(
      "chalkboard-background",
      "['rgba(127,127,127,.1)', path + 'img/blackboard.png' ]"
    ),
    pandoc_variable_arg(
      "chalkboard-background",
      "['rgba(127,127,127,.1)', path + 'img/blackboard.png' ]"
    )
  )
  expect_equal(
    process_reveal_option("chalkboard-draw", c("a", "b")),
    pandoc_variable_arg("chalkboard-draw", "['a', 'b']")
  )
  expect_equal(
    process_reveal_option("chalkboard-other", "dummy"),
    pandoc_variable_arg("chalkboard-other", "dummy")
  )
})

test_that("reveal options for autoAnimateStyles handling", {
  expect_equal(
    process_reveal_option("autoAnimateStyles", "padding"),
    pandoc_variable_arg("autoAnimateStyles", "['padding']")
  )
  expect_equal(
    process_reveal_option("autoAnimateStyles", c("color", "padding")),
    pandoc_variable_arg("autoAnimateStyles", "['color', 'padding']")
  )
})

test_that("revealjs lib path is found in package", {
  expect_match(revealjs_lib_path(), "revealjs/(inst/)?reveal\\.js-")
  expect_true(dir.exists(revealjs_lib_path()))
})

test_that("Version of revealjs can be retrieved", {
  expect_s3_class(revealjs_version(), "numeric_version")
})