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/raampGBV documentation built on Oct. 7, 2022, 11:06 p.m.