tests/testthat/test-capture_groups.R

In VerbalExpressions/RVerbalExpressions: Create Regular Expressions Easily

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(), "(")

})