tests/testthat/test-substitutions.R

test_that("substitutions work as intended", {
  x <- "aes as es ees c' c4 d, d2 a3 a ees,desdes'"
  y <- "a_ a_ e_ e_ c' c4 d, d2 a3 a e_,d_d_'"
  expect_equal(.noterev(x), y)
})
leonawicz/tabr documentation built on Sept. 17, 2024, 4:23 p.m.