tests/testthat/test-interview.R

test_that("Regular expression is created", {
  ob <- interview(c("What are the issue(s)?", "foo[bar]{baz}, boy!"))

  expect_length(ob, 2)
  expect_identical(names(ob), c("Q1", "Q2"))
})
BroVic/jGBV documentation built on Oct. 9, 2022, 6:38 a.m.