tests/testthat/test-unnest_regex.R

In tidytext: Text Mining using 'dplyr', 'ggplot2', and Other Tidy Tools

test_that("unnest_regex works", {
  r <- unnest_regex(skspr, out, txt)
  s <- unnest_tokens(skspr, out, txt, token = "regex")
  expect_equal(r, s)
  r <- unnest_regex(skspr, out, txt, pattern = "a")
  s <- unnest_tokens(skspr, out, txt, token = "regex", pattern = "a")
  expect_equal(r, s)
})