tests/testthat/test-glue.R

In marquee: Markdown Parser and Renderer for R Graphics

test_that("glue properly detects custom spans", {
  test <- "YES"
  span <- "custom"
  expect_equal(
    marquee_glue("This test passes? {.red {test}}!"),
    "This test passes? {.red YES}!"
  )
  expect_equal(
    marquee_glue("This test passes? {.{span} {test}}!"),
    "This test passes? {.custom YES}!"
  )
  expect_equal(
    marquee_glue("This test passes? {.red That is a {test}}!"),
    "This test passes? {.red That is a YES}!"
  )
  expect_equal(
    marquee_glue("This test passes? {.red }!"),
    "This test passes? {.red }!"
  )
  expect_snapshot_error(marquee_glue("This test passes? {.red{test}}!"))
  expect_snapshot_error(marquee_glue("This test passes? {.red}!"))
  expect_snapshot_error(marquee_glue("This test passes? {.{span}2 test}!"))

  bad_tag <- "tag 2"
  expect_snapshot_error(marquee_glue("This test passes? {.{bad_tag} test}!"))

  expect_equal(
    marquee_glue("This test {#e2a passes? {.red That is a {test}}!}"),
    "This test {#e2a passes? {.red That is a YES}!}"
  )
})