tests/testthat/test-verbatimize.R

In imbs-hl/imbs: Collection of functions used at the IMBS

context("Check verbatimize")

x <- c('foo', 'bar', 'buz')
x_pasted <- '\\verb=foo=, \\verb=bar=, \\verb=buz='

test_that("verbatimize", {
  expect_that(verbatimize(x) == x_pasted, is_true())
  expect_that(length(verbatimize(x)), equals(1))
  expect_that(verbatimize(x), is_a('character'))
})