tests/testthat/test-return_headings.R

In accessrmd: Improving the Accessibility of 'rmarkdown' Documents

# deps --------------------------------------------------------------------

eg_title <- return_heading(txt = "Some title.", lvl = 1, class = "title")

# tests -------------------------------------------------------------------

test_that("Tag is returned", {
  expect_true(class(eg_title) == "shiny.tag")
})

test_that(
  "lvl results in correct heading styling",
  expect_true(grepl("font-size:38px;", eg_title))
)

test_that(
  "Correct class returned",
  expect_true(grepl("title toc-ignore", eg_title))
)

test_that(
  "Returns NULL on length zero character",
  expect_null(
    return_heading(txt = character(), lvl = 1, class = "title")
  )
)