tests/testthat/test-escaping.R

In tjmahr/WrapRmd: RStudio Addin for Wrapping RMarkdown Paragraphs

test_that("does not escape !, [, ]", {
  string <- "This is a confidence interval [0, 1], [0, 1]!"
  expect_equal(str_rmd_wrap(string), string)
})

test_that("does not escape !, [, ] unless they are already escaped", {
  string <- "This is a confidence interval [0, 1]! \\[0, 1\\]\\!"
  expect_equal(str_rmd_wrap(string), string)
})

test_that("does not unescape \\@ref", {
  string <- "Table \\@ref(tab:counts) shows counts; @ref(tab:counts) won't."
  expect_equal(str_rmd_wrap(string), string)
})


test_that("escape \ in math mode", {
  string <- "a continuous parameter $\\beta$ with no $\\theta$s"
  expect_equal(str_rmd_wrap(string), string)
})


test_that("no escape LaTeX", {
  string <-
"Someone said something [@bibref-to-article], and I am doing something in
\\experiment{1} to test it."

  expect_equal(str_rmd_wrap(string, 80), string)
})