tests/testthat/test-capture_groups.R

context("test-capture_groups")

test_that("capture groups work", {

  # expect correct output
  expect_equal(rx_begin_capture() %>% as.character(), "(")
  expect_equal(rx_end_capture() %>% as.character(), ")")
  expect_equal(rx_begin_capture() %>% rx_end_capture() %>% as.character(), "()")
  expect_equal("" %>% rx_begin_capture() %>% as.character(), "(")

})
VerbalExpressions/RVerbalExpressions documentation built on March 27, 2024, 8:20 a.m.