tests/testthat/test-all.R

In MangoTheCat/rematch: Match Regular Expressions with a Nicer 'API'

context("re_match_all")

test_that("corner cases", {

  res <- re_match_all("", c("foo", "bar"))
  expect_equal(
    res,
    list(
      cbind(.match = c("", "", "")),
      cbind(.match = c("", "", ""))
    )
  )

  res <- re_match_all("", c("", "bar"))
  expect_equal(
    res,
    list(
      cbind(.match = ""),
      cbind(.match = c("", "", ""))
    )
  )

  res <- re_match_all("", character())
  expect_equal(res, list())

  res <- re_match_all("foo", character())
  expect_equal(res, list())

  res <- re_match_all("foo", "not")
  expect_equal(res, list(cbind(.match = character())))
})


test_that("capture groups", {

  pattern <- "([0-9]+)"

  res <- re_match_all(pattern, c("123xxxx456", "", "xxx", "1", "123"))
  expect_equal(
    res,
    list(
      cbind(.match = c("123", "456"), c("123", "456")),
      cbind(.match = character(), character()),
      cbind(.match = character(), character()),
      cbind(.match = "1", "1"),
      cbind(.match = "123", "123")
    )
  )

})


test_that("scalar text with capure groups", {

  res <- re_match_all("\\b(\\w+)\\b", "foo bar")
  expect_equal(res, list(cbind(.match = c("foo", "bar"), c("foo", "bar"))))

  res <- re_match_all("\\b(?<word>\\w+)\\b", "foo bar")
  expect_equal(
    res,
    list(
      cbind(.match = c("foo", "bar"), word = c("foo", "bar"))
    )
  )
})