tests/testthat/test-findlines.R

test_that("finds lines", {
  expect_equal(findlines(c("x", "y"), "x"), 1)
  expect_equal(findlines(c("x", "y"), c("x", "y")), c(1, 2))
  expect_equal(findlines(c("x", "y"), "z"), integer(0))
})
carlos-r-git/scriptsearch documentation built on Sept. 1, 2020, 6:38 p.m.