tests/testthat/test-disallow-multiple-pattern-capture.R

In coolbutuseless/minilexer: A Simple Tool for Lexing Text Data

context("disallow-multiple-pattern-capture")

test_that("mutiple capture groups per pattern not allowed", {

  patterns <- c(single = 'a', multi = '(b)|(c)')
  text     <- "abc"
  expect_error(lex(text, patterns), "Multiple capture")

})