tests/testthat/test_remove.R

context("Term removal")

test_that("Term removal work correctly", {

  expect_equal(remove_terms("check anno", "anno", c("begin", "middle", "end")), "check")
  expect_equal(remove_terms("check anno", "anno", "full"), "check")
  expect_equal(remove_terms("check anno", "anno", "all"), "check")    

})
COMHIS/bibliographica documentation built on April 11, 2022, 3:40 p.m.